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SUPPLY  USAGE  REQUIREMENTS  ESTIMATOR  (SURE)  VERSION  2.0  by 
Major  John  M.  Friedson,  USA,  448  pages. 


SURE  2.0  is  a  compiled,  stand-alone  dBase  IV  version  2.0  system  that  allows 
planners  to  estimate  detailed  equipment-based  consumption  for  supply  classes  III 
and  V,  and  population-based  consumption  for  classes  I,  II,  IV,  VI,  and  VIII,  and 
water.  It  is  a  replacement  for  the  previous  SURE  1.x  system  that  required  a  copy 
of  Lotus  1-2-3  version  2.x.  Hardware  requirements  for  SURE  2.0  are  a  DOS-based 
system  with  2MB  memory  or  greater,  and  a  hard  drive  with  3MB  or  more  free  disk 
space  available  for  installation.  Use  of  SURE  2.0  may  require  from  two  to  twenty 
MB  additional  disk  space  depending  on  user  entries. 

SURE  2.0  uses  doctrinal  methods  for  estimating  logistics  requirements  by 
providing  equipment  data  and  formulas  for  a  number  of  environmental  and  combat 
conditions.  SURE's  concept  of  orders-based  planning  integrates  phased  operations, 
parameter  sets  of  operational  conditions,  and  task-organized  groupings  of  units  to 
facilitate  the  correlation  of  logistics  estimates  to  operations  plans  and  orders. 
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CHAPTER  I 
INTRODUCTION 

The  supply  system  must  be  responsive,  efficient,  and  simple  to  operate.  It 
must  be  able  to  adjust  to  requirements  of  supported  units  and  be  able  to 
forecast  and  satisfy  fluctuating  demands.1  FM  101-10-1/2 

Chapter  2  of  Field  Manual  101-10-1/2,  Staff  Officers'  Field  Manual  Or¬ 
ganizational  Technical,  and  Logistical  Data  Planning  Factors  (Volume  2)  is  the 
Army's  primary  handbook  for  estimating  the  food,  water,  clothing,  equipment, 
arms,  ammunition,  fuel,  and  materials  needed  to  conduct  combat  operations.  It 
provides  doctrinal  methods  for  estimating  those  requirements  through  by  providing 
equipment  data  and  formulas  for  a  number  of  environmental  and  combat  condi¬ 
tions.  The  large  number  of  possible  Army  units,  wide  variety  of  equipment,  a  and 
multiple  permutations  of  environmental  and  combat  conditions,  however,  makes 
manual  calculation  of  these  estimates  difficult  and  time-consuming. 

In  an  effort  to  overcome  these  limitations,  the  first  commonly  fielded  pro¬ 
gram  to  automate  the  estimate  process  is  the  currently  fielded  Supply  Usage  Re¬ 
quirements  Estimator,  SURE  1.x.2  This  system  uses  a  series  of  Lotus  123  version. 
2.x  templates  that  "allow  planners  to  estimate  detailed  equipment-based  consump¬ 
tion  for  supply  classes  III  and  V,  and  population-based  consumption  for  classes  I, 
II,  IV,  VI,  and  VIII,  and  water."3  This  system  has  the  advantages  of  being  able  to 
be  run  on  machines  meeting  a  minimal  hardware  requirements,  but  its  capabilities 
are  limited  by  the  programming  constraints  common  to  macro-based  systems.  As  a 
result,  SURE  1.0  has  only  limited  capacity  to  save  user  work,  is  limited  to  calcula¬ 
tions  for  a  single  day's  consumption,  and  has  no  help  system.  Additionally,  it  re¬ 
quires  the  user  to  own  a  copy  of  Lotus  Development  Corporation's  Lotus  1-2-3™, 
and  a  version  2.x  copy  in  particular.  To  overcome  these  disadvantages,  U.S.  Army 
Combined  Arms  Support  Command  (CASCOM)  Force  Development  and  Evalua¬ 
tion  Directorate  (FD&E)  decided  that  a  new  version  of  SURE,  a  database-based. 
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compiled  (and  thus  a  stand-alone  program)  version  should  be  the  next  step  in  the 
SURE  developmental  process. 

CASCOM's  requirements  for  SURE  2.0,  the  compiled  version,  was  for  it 
to  at  least  duplicate  current  SURE  1.0  capabilities,  to  be  developed  under  one  of  a 
limited  number  of  database  systems,  be  dBase™  file  compatible,  and  to  offer  as 
many  as  possible  of  a  number  of  additional  enhancements.  Possible  enhancements 
included,  but  were  not  limited  to  such  features  as  a  user-friendly  menu  system,  on¬ 
line  help,  single-pass  calculation  of  estimates  for  multiple  classes  of  supply,  and 
task  force  building.  Most,  although  not  all,  CASCOM  desires  for  improvements 
are  made  in  the  SURE  2.0  system. 

In  addition,  while  a  superb  example  of  spreadsheet  capabilities,  the  origi¬ 
nal  SURE's  limitations  make  it  of  limited  use  for  operational  planning.  It  has  no 
provisions  for  saving  parameters  for  use  in  creating  a  logistics  estimate  for  an  op¬ 
erational  scenario,  no  provisions  for  multiple  or  fractional  days,  and  no  ability  to 
correlate  estimates  with  specific  phases  of  an  operation.  Indeed,  a  new  calculation 
must  be  made  for  every  day  of  an  operation  where  any  planning  factor  changes.  In 
addition  to  CASCOM  requirements  and  desires,  the  purpose  of  developing  the 
SURE  2.0  system  under  the  auspices  of  the  Command  and  General  Staff  College 
(CGSC),  and  the  School  of  Advanced  Military  Studies  (SAMS)  in  particular  was  to 
make  it  a  better  tool  for  operational  planners. 

Combining  CASCOM  requirements  to  duplicate  the  functionality  of  the 
original  SURE  system,  plus  enhancements,  with  the  objective  of  also  making  it  a 
tool  for  operational  planners  has  resulted  in  a  stand-alone  system  with  greatly  en¬ 
hanced  capability  at  the  expense  of  an  increase  in  complexity  for  even  basic  opera¬ 
tions.  Both  of  these  conditions  are  the  result  of  structuring  SURE  2.0  around  the 
concept  of  orders-based  planning. 

In  SURE  2.0,  orders-based  planning  integrates  the  concepts  of  phased  op¬ 
erations,  parameter  sets  of  operational  conditions,  and  task-organized  groupings  of 
units  to  facilitate  the  correlation  of  logistics  estimates  to  operations  plans  and 
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orders.  The  framework  for  the  system  in  an  the  Order4,  which  may  be  subdivided 
into  as  many  as  nine  Phases,  each  Phase  being  up  to  99.99  days  in  length.  To  each 
order  may  be  assigned  any  number  of  Task  Organizations,  themselves  composed  of 
any  number  of  units.  For  each  Phase  of  the  Order,  each  Task  Organization  is  as¬ 
signed  a  Parameter  Set,  a  collection  of  battlefield  and  logistical  conditions  includ¬ 
ing  Area  Profile,  Combat  Intensity,  ration  cycle,  etc. 

Although  orders-based  planning  provides  enormous  flexibility,  it  does  re¬ 
quire  the  user,  at  a  minimum,  to  create  one  Unit  from  an  Standard  Requirements 
Code  (SRC),  one  Task  Organization  from  that  Unit,  one  Order  with  at  least  one 
Phase,  and  one  Parameter  Set  with  the  appropriate  conditions  to  perform  any  calcu¬ 
lations  whatsoever.  Considerable  effort  has  been  made  through  the  use  of  on¬ 
screen  assistance  and  an  additional  on-line  context  sensitive  help  system  to  make 
that  process  both  quick  and  easy  to  do.  It  is,  however,  different  from  the  original 
SURE  1  .x  system,  which  allows  direct  manipulation  of  and  calculations  based  on 
the  SRCs  provided.  SURE  2.0  preserves  the  original  databases  and  allows  their 
replacement  with  updated  versions  without  sacrificing  user-developed  Units. 

SURE  2.0  does  duplicate  1  .x's  functionality  in  terms  of  the  kinds  of  information 
calculated  and  the  estimates  provided  to  the  user. 

One  area  in  which  SURE  2.0  was  not  able  to  meet  design  preferences  was 
in  minimum  system  requirements.  As  a  number  of  older  DOS-based  machines 
with  only  640K  of  RAM  and  small  (20  MB)  hard  drives  are  still  in  common  use  in 
the  Army,  it  was  desired  that  SURE  2.0  could  be  run  on  those  platforms.  The 
minimum  requirements  of  dBase  IV  2.0  compiled  systems,  however,  is  for  640K  of 
base  memory  and  1MB  of  extended  or  expanded  memory.  When  this  was  identi¬ 
fied,  CASCOM  decided  to  continue  utilizing  the  dBase  compiler,  trading  the  ad¬ 
vantages  of  speed,  code  maintenance,  and  ease  of  use  against  a  more  limited  set  of 
machines  on  which  the  program  could  be  run.  In  addition  to  memory  require¬ 
ments,  SURE  2.0  also  required  the  'Files'  setting  in  system  Config.sys  files  to  be  set 
to  60  or  greater. 
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The  SURE  2.0  system  started  development  in  November  1993,  with  pro¬ 
jected  fielding  in  late  spring  or  early  summer  of  1994.  The  developmental  process 
passed  through  three  general  phases:  concept  development  and  generation  of  Alpha 
code;  development  of  Beta  code  and  Beta  testing  at  Fort  Leavenworth's  CGSC,  and 
code  proofing  at  Fort  Lee.  Beta  testing  at  Fort  Leavenworth  was  done  by  an  Ad¬ 
vanced  Logistics  (A459)  class  in  the  Command  and  General  Staff  College,  under 
the  direction  of  MAJ  Richard  Simmis  of  the  Deaprtment  of  Sustainment  and  Re¬ 
sourcing  Operations  (DSRO),  and  by  SAMS  students  during  their  Battle  Command 
Training  Program  (BCTP).  Upon  completion  of  Beta  testing  and  submission  of  the 
code,  databases,  and  this  document  to  the  School  for  Advanced  Military  Studies  the 
product  will  be  passed  on  to  CASCOM  for  final  proofing  and  fielding.  Future  de¬ 
velopment  and  code  maintenance  will  be  done  by  CASCOM. 
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CHAPTER  II 

PROGRAM  STRUCTURE 


This  chapter  is  a  basic  roadmap  for  future  CASCOM  programmers  doing 
code  maintenance  or  updates.  It  reviews  the  data  file  listings  and  general  program 

*  structure,  and  is  ment  to  be  used  in  conjunction  with  the  Programmers  References 
in  Annes  E. 

*  SURE  2.0  allows  users  to  copy  and  use  CASCOM  provided  databases 
without  modifing  the  original  information.  Table  1  below  lists  the  CASCOM  da¬ 
tabases  and  their  functions  (additional  data  can  be  found  in  the  Database  Structure 
Summary  in  Annex  E): 


TABLE  1 

CASCOM  AND  FM  101-10-1/2  DATABASES5 


.dbf 

Use 

Interaction 

Ammorate 

Ammunition  consumption 
data  for  all  ammunition-using 
LINs. 

Used  in  calculating  ammunition  con¬ 
sumption.  Related  to  Csrclinq  through 
lin. 

Class_I 

Ration  types  and  planning 
factors. 

Used  in  selection  and  calculation  of 
ration  consumption. 

Dodic 

Nomenclature,  weight,  and 
cube  for  all  ammunition 
DODICs. 

Used  in  calculating  ammunition  con¬ 
sumption.  Related  to  Ammorate 
through  dodic. 

Echelons 

Echelons  for  water 
consumption. 

SURE  attempts  to  guess  Unit  echelon, 
this  allows  for  user  correction. 

Help 

Stores  context-sensitive  help. 

Accessed  by  FI  key  or  browsing  or 
printing  from  Help  menu. 

Intensty 

Intensity  and  factors  for  am¬ 
munition  consumption  rates. 

Used  in  calculating  ammunition 
consumption. 

Linlist 

Equipment  from  which  users 
can  pick  to  add  to  their  units. 

Additions  to  Csrclinq.dbf  based  on  se¬ 
lections  from  this  list. 
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.dbf 

Use 

Interaction 

Medical 

Class  VIII  consumption  in 
pounds  per  man  per  day. 
Echelon  and  intensity  pecu¬ 
liar  to  this  database. 

Used  in  calculating  Class  VIII 
consumption. 

Polrate 

Fuel  consumption  data  for  all 
fuel-using  LINs. 

Used  in  calculating  fuel  consumption. 
Related  through  pol_type  to  each 
other.  Polrate  is  related  to  Csrclinq 
through  lin. 

Polwgt 

Pounds  per  gallon  of  each 
fuel  type. 

Posture 

Ammunition  consumption 
posture. 

Used  in  calculating  ammunition 
consumption. 

Profiles 

Area  Profiles  with  equipment 
use  hours  and  kilometers  per 
day. 

Used  in  calculating  fuel  consumption. 
Related  to  Cprofile-  through 
profilenam. 

Srclist 

SRC's  from  which  users  can 
pick  to  create  Units. 

Copies  to  Csrclist,  the  user's  Unit 
database. 

Srclinqt 

Equipment  LINs  for  each 

SRC. 

Copies  to  Csrclinq,  the  equipment  list 
in  the  user's  Units. 

Water 

Water  consumption  per  man 
per  day  based  on  climate. 

Used  in  calculating  water 
consumption. 

SURE  also  has  an  extensive  set  of  databases  used  for  user  data,  listed  be¬ 
low  in  Table  2: 


TABLE  2 

USER  AND  REPORT  CREATED  DATABASES 


.dbf 

Use 

Interaction 

Ammoest 

Stores  ammunition  con¬ 
sumption  estimated 
data. 

Created  when  user  selects  order  for  esti¬ 
mation  in  Orders-based  Reports 
subprogram. 

Cl_other 

Stores  Class  I,  IV,  VIII, 
and  water  consumption 
estimated  data. 
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.dbf 

Use 

Interaction 

Cprofile 

Stores  user  Parameter 
Set  information,  includ¬ 
ing  Area  Profile,  Inten¬ 
sity,  Intensity  Factor, 
Ration  Cycle,  water  and 
Medical  profiles. 

Created  and  edited  in  Parameter  Sets  sub¬ 
program  set.  Related  to  Ordertas  through 
profilenam. 

Csrclist 

Stores  user  Units. 

Created  and  edited  when  user  creates 

Units  from  SRCs  in  Units  subprogram 
set. 

Csrclinq 

Stores  user’s  Unit’s 
equipment  LINs  and 
quantities. 

Created  and  edited  when  user  creates 

Units  from  SRCs  in  Units  subprogram 
set. 

Orderlst 

Stores  list  of  Orders  to 
which  Task  Organiza¬ 
tions  with  Parameter 
Sets  are  assigned. 

Created  and  edited  when  user  creates  an 
Order  in  the  Orders  subprogram  set.  In¬ 
formation  drawn  from  the  Taskorg,  and 
Cprofile  databases  is  combined  with  that 
from  the  Order  creation  and  editing 
screens  to  create  and  maintain  Ordertas. 

Ordertas 

Stores  Task  Organiza¬ 
tion,  strength,  and  Pa¬ 
rameter  Set  assignment 
data  for  each  order. 

Polest 

Stores  fuel  consump¬ 
tion  estimated  data. 

Created  when  user  selects  order  for  esti¬ 
mation  in  Orders-based  Reports 
subprogram. 

Taskorg 

Stores  Unit  listings  for 
each  Task 

Organization. 

Created  and  edited  when  user  creates  a 
Task  Organization  from  Units  in  the 

Task  Organization  subprogram  set. 

Temp 

Ttemp 

Tttemp 

Used  by  SURE  to  copy 
records  for  temporary 
processing. 

Automatic,  no  user  interaction  required. 

SURE  2.0  contains  six  major  program  sets,  each  defined  by  a  PAD  state¬ 
ment  in  the  main  sure.prg:  Units,  Task  Organizations,  Parameter  Sets,  Orders,  Re- 
♦  ports,  Utilities,  and  Help.  The  following  sections  review  the  major  functions 

performed  and  major  sub-programs  of  each  of  these  program  sets.  (Additional  in¬ 
formation  on  programs  and  procedures  can  be  found  in  the  Data  Dictionary  and 
Program  Listings  in  Annex  E.) 
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Csrclist 
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TASK  ORGANIZATIONS 
Taskorg 


Task  Organizations 
with  Units 


ORDERS 

Ordertas 

Orderlot 


|  SURE  2.  0 

[ 

!  eupplied 
:  databases  1 

| 

Parameters  for  each  Task 
Organization,  by  Phase 
PARAMETER  SETS  >  } 

Cprofile 


Consumption  rates, 
calculated  quantities 


BURE  2.  0  databases 
created  from  supplied 
and  user- entered  data 


Phases 

Phase  Length 
Strength 


orderepl .prg 


polest 
ammoest 
cl  other 


Fuel,  Ammunition,  and 
Other  Classes  of  Supply 
Estimate  Reports 


Fig.  1  SURE  2.0  Database  Interaction 


Units 

Users  are  required  to  create  Units  from  the  SRC’s  provided  in  the 
Srclist.dbf,  or  to  assemble  them  on  a  custom  basis  directly  from  the  Linlist.dbf. 
Although  these  Units  retain  their  original  SRC  throughout  the  system,  and  can  be 
user-selected  for  change,  addition,  or  deletion  by  SRC,  SURE  uses  the  unique  Unit 
name  assigned  by  the  user.  This  is  required  as  Units  may  be  based  on  the  same 
SRC,  but,  with  modifications  be  quite  different.  Also,  the  ability  to  assign  discrete 
Unit  names  allows  the  user  to  track  specific  Units  throughout  an  Order  estimation 
report. 

Major  sub-programs  in  the  Unit  program  set  are  in  Table  3  below:6 
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TABLE  3 

SUB-PROGRAMS  IN  THE  UNIT  PROGRAM  SETS 


Program 

Functions 

createsr.prg 

Creates  Units  from  SRC's 

editunit.prg 

Edits  existing  Units 

custunit.prg 

Creates  custom  Units  from  LINs 

delunit.prg 

Deletes  Units 

Task  Organizations 

After  at  least  one  Unit  has  been  created,  the  user  may  create  a  Task  Or¬ 
ganization.  Task  Organizations  also  require  unique  names,  although  their  descrip¬ 
tions  may  be  shared.  A  Task  Organization  may  have  any  number  of  Units  assigned 
to  it,  and  no  Unit  may  be  deleted  that  is  assigned  to  a  Task  Organization.  Task  Or¬ 
ganizations  are  one  level  deep,  i.e.,  only  Units  can  be  assigned  to  Task  Organiza¬ 
tions  -  Task  Organizations  cannot  be  assigned  to  each  other.  Although  the 
desireability  of  multiple  levels  of  subordination  is  recognized,  it  was  beyond  the 
scope  of  this  version  of  SURE  do  to  considerations  of  duplication  and 
recursiveness. 

Major  sub-programs  in  the  Task  Organization  program  set  are  in  Table  4 

below: 


TABLE  4 

SUB-PROGRAMS  IN  THE  TASK  ORGANIZATION  PROGRAM 

SET 


Program 

Functions 

createta.prg 

Creates  Task  Organizations  from  Units 

createtc.prg 

Creates  Task  Organizations  by  copying  previous  ones. 

edittask.prg 

Edits  Task  Organizations 

deltask.prg 

Deletes  Task  Organizations 
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Parameter  Sets7 


The  conditions  that  each  Task  Organization  must  operate  under  during 
each  Phase  of  an  Order  are  determined  by  assigning  Parameter  Sets.  Parameter 
Sets  are  created  by  the  user  by  assigning  an  area  profile,  intensity  and  intensity 
factor,  ammunition  consumption  posture,  ration  cycle,  medical  use  parameter  and 
water  use  parameter.  These  permit  complex  sets  of  conditions  to  be  rapidly  as¬ 
signed  during  the  Order  creation  and  editing  process.  Parameter  set  names  are 
unique  and  are  not  editable  after  creation. 

Major  sub-programs  in  the  Parameter  Set  program  set  are: 


TABLE  5 

SUB-PROGRAMS  IN  THE  PARAMETER  SET  PROGRAM  SET 


Program 

Functions 

createpr.prg 

Creates  Parameter  Sets 

editprof.prg 

Edits  Parameter  Sets 

delprof.prg 

Deletes  Parameter  Sets 

crecuspr.prg 

Creates  Custom  Area  Profile 

Orders 

Users  establish  Orders  to  define  the  number  of  Phases  and  lengths  of  each 
Phase  which  SURE  uses  with  Parameter  Set  and  strength  settings  to  calculate  con¬ 
sumption  estimations  for  each  Unit,  each  Task  Organization,  and  for  the  Order  as  a 
whole.  After  a  Task  Organization  is  assigned  to  an  Order,  a  Parameter  Set  is  as¬ 
signed  to  each  Task  Organization  for  each  Phase  of  the  Order,  and,  optionally,  the 
percent  strength  for  each  Task  Organization  for  each  Phase  may  also  be  adjusted. 

Strength  changes  from  100%,  if  any,  are  applied  to  all  supply  estimates. 
For  example,  all  Units  of  a  Task  Organization  which  has  been  assigned  an  80% 
strength  for  a  particular  Phase  of  an  Order  will  have  their  consumption  estimates 
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reduced  by  20%  from  normal  for  the  same  time  period.  This  reduction  applies  to 
POL  and  ammunition  estimates  as  well  as  to  Class  I  and  water  estimates  for  per¬ 
sonnel.  Its  primary  application  is  to  approximate  those  effects  anticipated  by  the 
Order's  manouevre  planners. 

Major  sub-programs  in  the  Orders  program  set  are: 


TABLE  6 

SUB-PROGRAMS  IN  THE  ORDERS  PROGRAM  SET 


Program 

Functions 

createor.prg 

Creates  Orders 

editorde.prg 

Edits  Orders 

delorde.prg 

Edits  Task  Organizations 

Reports 

Estimate  calculations  based  on  user  Orders,  with  their  associated  Task  Or¬ 
ganizations  and  Parameter  Sets,  are  made  after  the  user  selects  an  Order  in  the 
Orders-based  reports  subprogram  set.  After  calculations  have  been  made  and 
stored  in  the  Ammoest,  Polest,  and  Cl_other  databases  the  user  is  offered  the 
choice  of  printing  reports  to  the  screen,  to  file,  or  to  the  printer.  Two  types  of  re¬ 
ports  are  available  for  fuel  and  ammunition  estimates,  LIN  by  LIN,  or  summary 
only.  While  all  reports  produce  summary  estimates  for  each  Unit,  for  each  Task 
Organization,  and  for  the  Order  Phase-by-Phase,  the  LIN-by-LIN  option  also  lists 
usage  for  each  equipment  LIN  in  each  Unit  in  the  POL  or  ammunition  reports. 
These  reports  can  be  quite  lengthy,  and  users  are  advised  to  print  them  to  file  rather 
than  the  screen. 

Major  sub-programs  in  the  Reports  program  set  are: 
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TABLE  7 

SUB-PROGRAMS  IN  THE  REPORTS  PROGRAM  SET 


Program 

Functions 

orderepl.prg 

Calculates  logistics  estimates  and  stores  them  in  polest,  ammoest, 
and  cl_other  databases.  This  information  is  accessed  through  the 
printpol.prg,  printamm.prg,  and  printoth.prg  programs. 

sysrep.prg 

Allows  users  to  print  provided  and  user-created  databases. 

Utilities  « 

Several  utilities  are  available  through  the  Utilities  subprogram  set.  SURE 
2.0  is  compiled  under  Borland's  dBase  IV  version  2.0  compiler,  and  the  indexes  are 
maintained  in  .mdx  format.  Unlike  dBase  Hi’s  .ndx  file  system,  .mdx’s  which  are 
corrupted  or  out  of  date  with  their  associated  .dbf  files  are  recognized  automati¬ 
cally,  and  the  user  is  prompted  to  reindex.  Nonetheless,  due  to  the  relative  new¬ 
ness  of  the  2.0  compiler  the  option  of  manually  forcing  a  reindex  of  all  indexed 
files  in  the  system  has  been  made. 

As  not  all  users  will  have  or  be  familiar  with  a  general  purpose  file  backup 
program,  simple  backup  and  restore  subprograms  copy  user-created  .dbf  and  .mdx 
files  to  a  floppy  disk.  While  the  system  does  allow  for  multiple  diskettes,  it  does 
not  provide  for  splitting  a  single  file  across  diskettes.  The  common  use  of  high 
density  (1.2  and  1.4  MB  diskettes)  should  allow  all  but  the  largest  of  systems  to  be 
backed  up  and  restored  from  this  system. 

SURE  fuel  and  ammunition  reports  are  similar  to  those  in  SURE  1 .0,  and 
also  require  17-pitch  (compressed)  print  to  line  up  properly  when  printed.  Unfor¬ 
tunately,  not  all  printers  are  easily  adjusted  from  their  control  panels  to  provide  this  * 

pitch.  Three  general  printer  types  are  supported  by  SURE  to  turn  this  feature  on  or 
off  in  most  printers:  Epson/IBM  compatible  dot  matrix,  HP  Laseijet  compatible, 
and  HP  Deskjet  (PCL)  compatible.  Once  the  user  has  made  a  setting  from  the 
'Compressed  Print  ON1  submenu  it  is  retained  and  automatically  accessed  during 
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the  report  printing  process.  In  any  event,  the  ability  to  print  to  an  ASCII  file,  then 
import  the  file  to  a  work  processor  should  overcome  the  printer  problem  for  virtu¬ 
ally  all  printers. 

Major  sub-programs  in  the  Utilities  Program  Set  are: 


TABLE  8 

SUB-PROGRAMS  IN  THE  UTILITIES  PROGRAM  SET 


Program 

Functions 

reindx.prg 

Reindexes  (recreates)  all  .mdx  files. 

backdbf.prg 

Back-up  user-created  databases  and  indexes  to  floppy. 

restoref.prg 

Restore  user  databases  and  indexes  from  floppy  disk. 

compress.prg 

Turns  on  compressed  (17-pitch)  print  and  sets  SURE  to 
automatically  print  reports  in  compressed  mode  where 
required. 

uncompre.prg 

Turns  off  compressed  print. 

Help 

Users  are  guided  through  the  SURE  system's  operation  in  two  ways.  First, 
most  screens  in  the  system  have  on-screen  instructions  from  the  subprogram's  asso¬ 
ciated  inst*.prg  procedure  file.  If  this  information  is  not  sufficiet,  the  user  can  ac¬ 
cess  context-sensitive  help  by  pressing  the  FI  key.  This  will  access  the  Help.dbf 
down  to  the  subprogram  set  level.  The  Help.dbf  can  also  be  accessed  from  the 
Help  menu.  A  larger  display  of  each  help  subject  is  used  when  accessed  in  this 
manner,  as  there  is  no  need  for  the  user  to  view  the  current  on-screen  menu.  One 
or  all  Help  subjects  can  be  printed  to  the  printer.  When  the  Help.dbf  is  printed  this 
way,  the  associated  menu  for  a  program  set  is  also  printed. 

Major  sub-programs  in  the  Help  program  set  are: 
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TABLE  9 

SUB-PROGRAMS  IN  THE  HELP  PROGRAM  SET 


Program 

Functions 

helpndx.prg 

View  Help  subjects  via  Help  index. 

pmhelp.prg 

Print  one  or  all  Help  topics. 

Additional,  detailed  information  on  fields,  programs,  and  procedures  is 
located  in  the  Tree,  Datadict,  and  Prcsumry  sections  located  in  the  appendixes. 


CHAPTER  III 
USER  HELP 


The  following  section  is  the  SURE  2.0  user  help  system.  It  is  accessable 
from  SURE  2.0  by  pressing  the  F 1  Key,  which  gets  context-sensitive  help  down  to 
the  program-set  level  on  screen,  or  by  accessing  the  Help  menu.  The  Help  menu 
allows  the  user  to  view  the  Help  system  by  subject,  or  to  print  one  or  all  Help  sub¬ 
jects.  The  following  sections  are,  except  for  formatting,  as  they  would  be  if 
printed  by  a  user  from  the  Help  menu's  'Print  Instructions'  sub-program  set. 

The  Help  System 

Browse  Help 

Print  Instructions 

A.  Context-sensitive  Help  is  available  in  many  parts  of  the  SURE  System 
by  pressing  FI.  You  may  print  out  the  entire  Help  System  from  the  Main  Help 
Menu.  In  context  sensitive  Help,  if  additional  pages  are  available,  a  down- 
arrowwill  appear  in  the  lower  right  comer  of  the  Help  frame!  If  you  are  in  a  sec¬ 
ond  or  subsequent  Help  page,  an  up-arrow  will  appear.  You  may  transfer  between 
screens  using  either  Up/Down  arrows  or  Page-Up  Page-Down  Keys.  When  you  are 
done  with  Help,  press  the  Enter  or  Esc  Keys  to  return  to  the  SURE  program. 

Units  Task  Organizations  Parameter  Sets  Orders  Reports  Utilities 
Help  QUIT 

B.  A  Primer  on  the  SURE  system. 

HOW  THE  SURE  SYSTEM  WORKS 

Using  SURE  you  create  Units  from  SRC’s  and  their  associated  equipment 
LINs,  group  your  Units  into  Task  Organizations,  and  then  assign  Task  Organiza¬ 
tions  to  an  Order.  A  Parameter  Set  is  assigned  to  each  Task  Organization  for  each 
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Phase  of  the  Order.  The  SURE  system  calculates  estimated  consumption  data  for 
each  Unit  in  each  Task  Organization  for  every  Phase  of  the  Order,  and  also  sums 
total  estimated  consumption  for  each  Task  Organization  and  for  the  Order  overall. 

**  To  do  any  logistical  estimations  with  SURE  2.0  you  must  have  at  least 
one  Unit,  one  Task  Organization,  one  Parameter  Set,  and  one  Order!  ** 

UNITS  4 

Units  are  normally  based  on  SRC's,  which  are  lists  of  unit  sets  of  equip¬ 
ment  in  TOE  authorized  combinations  and  quantities.  Standard  SRC's  are  supplied  % 

with  the  SURE  system.  Units  are  usually  created  by  copying  SRC  listings,  then 
adding  or  deleting  equipment  LINs  and  changing  quantities  as  necessary.  Units 
may  also  be  created  from  scratch  by  assigning  all  equipment  LINs  and  quantities. 

Units  created  from  SRC's  are  given  generic  names,  i.e.,  'Infantry  Com¬ 
pany'  if  they  are  to  be  used  generically  in  multiples,  or  may  be  given  a  specific 
name,  such  as  'l-17th  Infantry'  if  they  are  to  be  used  individually  and  are  to  have 
their  logistics  estimates  tracked  specifically  throughout  the  Phases  of  an  Order. 

Once  created,  Units  may  be  assigned  in  any  quantity  to  any  number  of  Task 
Organizations. 

TASK  ORGANIZATIONS 

Units  are  grouped  into  Task  Organizations  which  may  be  assigned  to  any 
number  of  Orders.  The  SURE  system  allows  you  to  closely  parallel  the  task  organi¬ 
zation  of  units  in  OPLANs  and  OPORDERS,  although  SURE  groups  of  Units  are  * 

only  'one  deep'  -  you  cannot  group  SURE  Task  Organizations  into  other  Task 
Organizations. 

I 

A  typical  use  of  a  SURE  Task  Organization  would  be  to  assign  a  Head¬ 
quarters  Company  and  three  battalions  to  it,  and  call  that  Task  Organization  a  Bri¬ 
gade.  However,  if  the  companies  within  the  battalions  need  to  be  cross-attached  to 


16 


create  Battalion  Task  Forces  they  should  be  used  to  create  separate  Task  Organiza¬ 
tions  (Task  Forces)  rather  than  assigning  battalions  as  a  Brigade. 

MISSION  PARAMETER  SETS 

Parameter  Sets  are  collections  of  criteria  used  to  calculate  logistics  re¬ 
quirements.  They  include  combat  intensity,  ration  cycle,  and  so  forth.  By  creating 
and  saving  Parameter  Sets  with  appropriate  descriptions,  the  conditions  for  each 
Task  Organization  in  each  Phase  of  an  Order  can  be  quickly  set  or  changed. 

*  ORDERS 

An  Order  ties  together  Task  Organizations  and  Mission  Parameter  Sets. 
Each  Order  consists  of  up  to  nine  Phases,  and  each  Phase  may  be  up  to  99.99  days 
in  length.  The  conditions  established  by  each  Parameter  Set  are  used  by  SURE  in 
conjunction  with  the  number  of  personnel  and  quantity  and  types  of  equipment  in 
each  Unit  to  calculate  logistics  consumption  estimates.  The  use  of  Units  in  Task 
Organizations  allows  you  to  produce  logistic  estimates  that  parallel  the  Task  Or¬ 
ganizations  and  Phases  in  an  OPORDER  or  OPLAN. 

Also,  in  order  to  account  for  attrition,  reconstitution  and  other  changes  to 
Task  Organization  overall  strength,  each  Task  Organization's  strength  can  be  ad¬ 
justed  for  each  Phase  of  the  Order.  Logistics  estimates  areincreased  or  decreased 
overall  based  on  the  percent  strength  assigned.  If  no  percentage  adjustment  is 
made,  SURE  uses  100%  of  Unit  personnel  and  equipment  strength  for  each  Phase 
t  of  the  Order. 

REPORTS 

»  Two  categories  of  Reports  are  available,  Orders-based  Reports  which  pro¬ 

duce  logistics  estimates,  and  Systems  Reports  which  allow  you  to  print  out  listings 
of  data  provided  with  the  SURE  system  as  well  as  listings  of  the  Units,  Task  Or¬ 
ganizations,  Parameter  Sets,  and  Orders  you  have  created. 

ORDERS-BASED  REPORTS 
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Orders-based  reports  calculate  and  optionally  print  logistics  estimates. 

Any  changes  made  to  Units,  Task  Organizations,  or  Parameter  Sets  used  in  an  or¬ 
der  are  automatically  reflected  in  the  calculations  made. 

SYSTEM  REPORTS 

Systems  Reports  are  useful  in  planning  and  adjusting  all  components  of 
the  SURE  system.  For  example,  a  printed  list  of  the  SRC’s  in  the  SURE  system  is  * 

useful  in  planning  which  ones  to  select  to  produce  Units.  Unit  listings  facilitate  the 
planning  of  Task  Organizations,  while  Parameter  Set  and  Task  Organization  list¬ 
ings  help  in  pre-planning  orders. 

UTILITIES 

Six  options  are  included  in  SURE’s  Utilities: 

REINDEX  FILES 

Reindex  Files  is  rarely  needed,  unless  your  .MDX  files  get  separated  from 
the  rest  of  your  SURE  system. 

BACKUP  FILES 

It  is  highly  encouraged  to  back  up  your  SURE  databases  and  .MDX  files 
to  a  floppy  disk.  You  should  normally  do  a  backup  whenever  you  have  done  more 
work  than  you  care  to  repeat! 

RESTORE  FILES 

This  option  allows  you  to  copy  the  files  you  put  on  a  floppy  using  the 
Backup  procedure  back  on  to  your  hard  drive. 

PRINTER  SETUP  * 

Allows  you  to  adjust  the  printer  left  margin  and  page  length. 

COMPRESSED  PRINT  ON 
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Many  of  SURE's  reports  require  17-pitch  compressed  print.  If  your  printer 
is  hard  to  set  manually,  SURE  will  try  to  do  it  for  you  in  software. 

COMPRESSED  PRINT  OFF 

If  you  have  turned  on  compressed  print  from  within  SURE,  this  option 
attempts  to  reset  your  printer  back  to  the  uncompressed  mode. 

Cl.  Creating  a  Unit 

Select  SRC  (Browse) 

Select  SRC  (Find  SRC  with  SRC  Number) 

Add  New  Unit  from  SRC  or  Copied  Unit 

Copy  Unit  from  Existing  Unit 

View  Existing  Units 

Return  to  Main  Menu 

This  program  provides  several  ways  to  create  units  for  use  in  your  Task- 
Organizations.  You  may  create  a  unit  by  copying  its  TOE  name  and  equipment 
listing  from  an  SRC,  or  by  copying  its  data  from  a  unit  you  have  previously 
created. 

'Select  SRC  (Browse)' 

'Select  SRC  (Find  SRC  with  SRC  Number)' 

To  select  an  SRC  you  may  either  review  the  complete  list  of  available 
SRC's  (Browse),  or  enter  all  or  part  of  a  specific  SRC  if  you  have  that  information 
(Find  SRC  with  SRC  Number). 

After  selecting  an  SRC  to  provide  base  equipment  data  for  you  unit,  you 
may  either  retain  the  original,  generic  TOE  description  for  the  unit,  or  give  it  a 
unique  name,  i.e.,  T-57  Infantry  Bn'.  Units  formed  using  the  generic  name  are  use¬ 
ful  in  planning  where  you  need  to  use  'type'  units,  whereas  unique  names  allow 
you  to  track  logistics  estimations  for  a  particular  unit  throughout  the  Phases  of  an 
Order.  Either  way,  you  may  only  use  a  unique  unit  name  once  in  your  databases, 
although  you  may  have  any  number  of  that  unit  assigned  to  any  number  of  Task 
Organizations. 
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After  selecting  an  SRC,  you  must  choose  'Create  Unit  from  Selected  SRC 
or  Unit'  to  actually  copy  the  TOE  equipment  LINs  and  enter  the  unit  in  your  unit 
listing. 

'Select  SRC  (Find  SRC  with  SRC  Number)'  If  you  have  a  list  of  units  with 
SRC's  it  is  faster  to  enter  them  and  let  SURE  locate  them.  If  SURE  cannot  find  an 
SRC  it  will  automatically  start  at  the  beginning  of  the  database  and  let  you  Browse  4 

to  find  it. 

'Copy  Unit  from  previous  Unit'  If  you  are  creating  several  identical  or  <■ 

similar  units,  it  may  be  faster  to  copy  from  a  previous  Unit',  then  rename  and  later 
modify  your  new  unit  as  required.  You  must  rename  the  unit  if  you  have  copied  it 
from  a  previous  one,  as  unit  names  must  be  unique. 

After  copying  from  a  previous  unit,  you  must  choose  Create  Unit  from 
Selected  SRC  or  Unit'  to  actually  copy  the  TOE  equipment  LINs  and  enter  the  unit 
in  your  equipment  listing. 

C2.  Editing  Unit  Data 

Select  Unit  -  Browse  Unit  List 
Select  Unit  -  By  SRC 
Change  LIN  Quantities 
Add  Equipment  LIN 
Delete  LIN 
Change  Unit  Strength 
Change  Unit  Echelon 
Return  to  Main  Menu 

_ _ _  # 

Units  you  have  added  to  your  unit  list  may  be  modified  in  a  variety  of 
ways.  Any  changes  you  make  to  a  unit  are  automatically  reflected  in  all  Task  Or- 

< 

ganizations  and  in  all  Orders  which  use  that  Unit.  You  must  choose  a  Unit  before 
attempting  to  make  any  modifications. 

'Select  Unit  -  Browse  Unit  List'  allows  you  to  go  through  the  Unit  list 
inalphabetical  order  and  select  a  Unit  to  Edit. 
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'Select  Unit  -  By  SRC'  allows  you  to'optionally  enter  an  SRC  for  SURE  to 
search  the  Unit  list  for.  This  is  quite  fast  if  you  know  even  a  partial  SRC.  If  you 
do  not  enter  an  SRC,  you  will  Browse  the  Unit  list  in  SRC  order. 

’Change  LIN  Quantities'  allows  you  to  increase  or  decrease  the  number 
ofitems  of  a  particular  piece  of  equipment  in  a  unit. 

/ 

'Add  Equipment  LIN'  allows  you  to  add  items  of  equipment  no  already  on 
your  Units  equipment  list.  If  you  accidentally  try  to  add  a  piece  of  equipment  al- 
•  ready  on  the  Unit's  list,  the  program  will  automatically  screen  it  out. 

Delete  LINT  allows  you  to  completely  remove  a  piece  of  equipment  from 
a  Unit's  equipment  list. 

'Change  Unit  Strength'  allows  you  to  set  the  personnel  strength  which  the 
program  will  consider  as  100%  of  the  unit's  assigned  strength. 

'Change  Unit  Echelon'  allows  you  to  change  the  echelon  used  for  water- 
consumption  calculations.  This  program  guessed  the  echelon  when  the  Unit  was 
first  created. 

C3.  Create  Custom  Unit  from  Equipment  LINs 

Enter  Unit  Data 

View/Change  LIN  Quantities 

Add  LINs 

Delete  LIN 

Change  Unit  Echelon 
4  Return  to  Main  Menu 

'Create  a  Custom  Unit’ 

>  The  SURE  database  is  regularly  updated  and  contains  most  unit  TOE's. 

However,  if  you  have  a  unit  which  is  so  unlike  any  other  in  the  database  that  it  is 
not  even  worth  copying  the  equipment  data  from  a  similar  unit  and  adjusting  it,  use 
this  option  to  create  a  Unit  and,  optionally,  an  SRC  for  it. 
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'Enter  Unit  Data'  allows  you  to  enter  the  Unit  name,  and  optionally,  an 


SRC. 


'View/Change  LIN  Quantities'  allows  you  to  increase  or  decrease  the  num¬ 
ber  of  items  of  a  particular  piece  of  equipment  in  a  unit. 

'Add  Equipment  LIN’  allows  you  to  add  items  of  equipment  no  already  on 
your  Units  equipment  list.  If  you  accidentally  try  to  add  a  piece  of  equipment  al¬ 
ready  on  the  Unit's  list,  the  program  will  automatically  screen  it  out. 

'Delete  LIN'  allows  you  to  completely  remove  a  piece  of  equipment  from  % 

a  Unit's  equipment  list. 

'Change  Unit  Strength'  allows  you  to  set  the  personnel  strength  which  the 
program  will  consider  as  100%  of  the  unit's  assigned  strength. 

'Change  Unit  Echelon'  allows  you  to  change  the  echelon  used  for  water 
consumption  calculations.  This  program  guessed  the  echelon  when  the  Unit  was 
first  created. 

C4.  Deleting  a  Unit 

Select  Unit  -  Unit  Name  Order 

Select  Unit  -  SRC  Order 

Delete  Unit 

Return  to  Main  Menu 

'Select  Unit'  You  must  select  a  Unit  for  Deletion  first.  Although  you  may 
select  any  Unit,  you  will  not  be  able  to  actually  delete  any  Unit  that  is  on  any  Task  k 

Organization  listing. 

■Delete  Unit'  After  you  have  selected  a  Unit  for  deletion,  you  can  delete  it. 

You  will  be  asked  to  confirm  the  deletion.  Once  deleted.  Units  cannot  be  recov¬ 
ered,  but  must  be  recreated  if  required  again. 

Dl.  Creating  a  Task  Organization  from  Units 
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Name  Task  Organization 

Assign  Units  -  Unit  Name  Order 

Assign  Units  -  SRC  Order 

Assign  Unit  Quantities 

Create  from  Selected  Units 

Return  to  Main  Menu 

Task  Organizations  are  groups  of  Units  that  will  share  common  Parameter 

» 

Sets  during  the  Phases  of  an  Order.  They  could  be  companies  formed  into  a  battal¬ 
ion,  or  battalions  and  an  HHC  formed  into  a  brigade. 

'Name  Task  Organization'  Each  Task  Organization  requires  a  unique 
name.  This  name  is  not  changeable,  nor  may  two  Task  Organizations  share  the 
same  name.  You  may  however  change  the  Task  Organization  Description. 

'Assign  Units  -  Unit  Name  Order’  After  giving  the  new  Task  Organization 
a  name,  you  may  select  any  of  the  Units  in  your  Unit  listing.  This  option  lists  them 
in  alphabetical  order.  After  selecting  Units,  you  should  assign  them  quantities  of 
one  or  more  from  the  'Assign  Unit  Quantities'  menu. 

'Assign  Units  -  SRC  Order"  If  you  know  the  SRC's  of  the  Units  you  want 
to  add,  SURE  can  find  them  quickly  if  you  even  enter  a  partial  SRC  number.  After 
selecting  Units,  you  should  assign  them  quantities  of  one  or  more  from  the  'Assign 
Unit  Quantities'  menu. 

'Assign  Unit  Quantities'  Units  that  have  a  particular  identity,  such  as  T-57 
Infantry  Bn'  should  normally  be  assigned  a  quantity  of  one.  Generic  Units,  i.e.  'In- 
*  fantry  Bn',  may  be  assigned  in  any  quantity  up  to  99  each  in  any  one  Task 

Organization. 

t  'Create  from  Selected  Units'  When  you  are  done  selecting  Units  and  as¬ 

signing  quantities  for  this  Task  Organization,  you  must  Create  the  TaskOrganiza- 
tion  to  save  the  selected  data. 

D2.  Creating  a  Task  Organization  by  Copying  a  Previous  One 
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Select  Task  Organization  to  Copy 
Assign  New  Task  Organization  Name 
Save  and  Copy  Another 
Return  to  Main  Menu 

Task  Organizations  are  groups  of  Units  that  will  share  common  Parameter 
Sets  during  the  Phases  of  an  Order.  They  could  be  companies  formed  into  a  battal¬ 
ion,  or  battalions  and  an  HHC  formed  into  a  brigade. 

'Select  Task  Organization  to  Copy'  If  you  need  a  new  Task  Organization 
that  is  similar  to  one  previously  created,  it  is  easier  to  copy  the  old  one  and  modify 
it  than  to  create  it  from  scratch.  However,  each  Task  Organization  requires  a 
unique  name.  This  name  is  not  changeable,  nor  may  two  Task  Organizations  share 
the  same  name.  You  may  add  or  delete  units,  or  change  unit  quantities  to  the 
newly  copied  Organization  from  the  'Edit  Task  Organization'  choice  on  the  Main 
Menu. 


'Assign  New  Task  Organization  Name'  After  selecting  a  previous  Task 
Organization  to  copy,  you  must  give  the  new  Task  Organization  a  different  and 
unique  name. 

'Save  and  Copy  Another'  You  should  save  your  new  Task  Organization 
after  assigning  it  a  new,  unique  name.  You  may  continue  to  copy  additional  Task 
Organizations  as  necessary. 

D3.  Editing  Task  Organizations 

Select  Task  Organization 

Assign  Units  -  Unit  Name  Order 

Assign  Units  -  SRC  Order 

View  Task  Organization  Units/Change  Unit 

Quantities  -  Unit  Name  Order 

View  Task  Organization  Units/Change  Unit 

Quantities  -  SRC  Order 

Un-assign  Units  -  Unit  Name  Order 

Un-assign  Units  -  SRC  Order 

Return  to  Main  Menu 


♦ 


* 
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'Select  Task  Organization'  You  must  have  a  Task  Organization  selected 
for  editing  before  doing  any  other  process. 

'Assign  Units  -  Unit  Name  Order'  Any  number  of  Units  may  be  assigned 
to  a  Task  Organization,  in  any  quantity  up  to  99  each.  Only  Units  not  previously 
part  of  the  selected  Task  Organization  will  be  added  to  it.  This  option  lists  Units  in 
*  alphabetical  order. 

'Assign  Units  -  SRC  Order'  Any  number  of  Units  may  be  assigned  to  a 
Task  Organization,  in  any  quantity  up  to  99  each.  Only  units  not  previously  part  of 
the  selected  Task  Organization  will  be  added  to  it.  This  option  lists  Units  in  SRC 
Order,  and  optionally  lets  you  enter  an  SRC  for  SURE  to  find. 

'View  Task  Organization  Units/Change  Unit  Quantities  -  Unit  Name  Or¬ 
der'  You  may  view,  and  optionally  edit  the  quantities  of  Units  assigned  to  the  cur¬ 
rent  Task  Organization.  This  option  lists  Units  in  alphabetical  order. 

'View  Task  Organization  Units/Change  Unit  Quantities  -  SRC  Order'  You 
may  view,  and  optionally  edit  the  quantities  of  Units  assigned  to  the  current  Task 
Organization.  This  option  lists  Units  in  SRC  Order. 

'Un-assign  Units  -  Unit  Name  Order'  Units  un-assigned  from  Task  Organi¬ 
zations  are  still  part  of  your  Unit  listing,  and  may  be  added  back  to  the  Task  Or¬ 
ganization  later  if  required.  This  option  lists  Units  in  alphabetical  order. 

'Un-assign  Units  -  SRC  Order'  Units  un-assigned  from  Task  Organizations 
are  still  part  of  your  Unit  listing,  and  may  be  added  back  to  the  Task  Organization 
later  if  required.  This  option  lists  Units  in  SRC  order. 

i  D4.  Deleting  a  Task  Organization 

Select  Task  Organization 

Delete  Task  Organization 

Return  to  Main  Menu 
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'Select  Task  Organization'  You  must  select  a  Task  Organization  before- 
separately  attempting  to  delete  it.  Task  Organizations  which  have  been  assigned  to 
an  Order  cannot  be  deleted  until  removed  from  assignment  to  all  Orders. 

'Delete  Task  Organization'  After  selecting  a  Task  Organization,  you  may 
attempt  to  delete  it.  If  it  is  assigned  to  one  or  more  Orders,  you  will  not  be  able  to 
delete  it.  Deleted  Task  Organizations  cannot  be  un-deleted,  and  must  be  recreated  * 

if  required  again. 

El.  Creating  a  Mission  Parameter  Set  T 

Create  New  Mission  Parameter  Set 

View  Mission  Parameter  Sets 

Return  to  Main  Menu 

'Create  Parameter  Set'  Parameter  Sets  are  groups  of  settings  that  instruct 
the  program  on  what  factors  to  use  when  doing  logistics  estimations  for  Units  in  a 
Task  Organization  during  a  particular  Phase  of  an  Order.  You  must  assign  unique 
names  to  them,  although  descriptions  may  be  changed  at  any  time. 

When  you  create  a  Parameter  Set,  you  will  be  automatically  directed  to 
pick  lists  for  the  following  items: 

Area  Profile 

You  may  select  from  standard  Area  Profiles  supplied  with  this  program, 
or  create  non-standard  ones  from  the  'Create  Custom  Area  Profile’  choice  on  the 
Main  Menu.  * 

Ammunition  Consumption  Posture 

Ammunition  Consumption  Postures  are  listings  of  mission  conditions,  * 

such  as  '1st  Day  Defense'  that,  in  conjunction  with  Combat  Intensity  are  used  to 
estimate  the  quantities  of  ammunition  consumed. 

Combat  Intensity 
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Combat  Intensity,  such  as  'Heavy',  is  used  in  conjunction  with  Consump¬ 
tion  Posture  by  modifying  that  posture  through  multiplication  with  the  Combat  In¬ 
tensity  Factor. 

Combat  Intensity  Factor 

A  standard  Intensity  Factor  is  provided  with  each  Combat  Intensity. 

These  are  may  be  modified  for  a  particular  Parameter  Set,  but  should  be  done  so 
with  caution  as  the  results  will  be  non-doctrinal. 

Class  I  Ration  Cycle 

You  will  select  three  rations,  which  will  be  used  by  the  Parameter  Set  as 
the  daily  ration  cycle. 

Water  Consumption  Parameter 

These  should  usually  be  set  according  to  the  echelon  of  the  Task  Organi¬ 
zation,  but  may  be  changed.  Larger  quantities  are  calculated  for  higher  echeons. 

Class  VIII  (Medical)  Usage  Parameter 

Echelon  and  combat  intensity  are  used  together  to  establish  a  medical  us¬ 
age  factor  that  adjusts  Class  VIII  estimates. 

'View  Orders'  This  option  allows  you  to  review  Orders  in  the  system 
without  making  changes. 

'Assign  Task  Organizations'  This  option  allows  you  to  assign  Task  Or¬ 
ganizations  to  the  Order.  Only  Task  Organizations  not  already  assigned  will  be 
shown. 

'Assign  Parameter  Sets  to  Task  Organization  Phases'  Each  Task  Organiza¬ 
tion  assigned  to  an  Order  must  have  a  Parameter  Set  associated  with  it  for  each 
Phase  in  the  Order.  For  example,  if  your  Order  has  three  Phases,  each  Task  Or¬ 
ganization  will  have  a  Parameter  Set  assigned  for  each  Phase.  You  may  use  the 


27 


same  Parameter  Set  for  more  than  one  Phase,  and  for  more  than  one  Task 
Organization. 


E2.  Editing  a  Mission  Parameter  Set 
Select  Parameter  Set 

Change  Area  Profile  * 

Change  Ammo  Consumption  Posture 
Change  Intensity 
Change  Intensity  Factor 

Change  Class  I  Parameters  ’ 

Change  Water  Consumption  Parameters 
Change  Class  VTII  Medical  Parameters 
Return  to  Main  Menu 

'Select  Parameter  Set'  You  must  choose  a  Parameter  Set  before  making 
any  changes.  Changes  you  make  will  be  reflected  in  all  Orders-based  consumption- 
reports  which  use  that  Parameter  Set. 

'Change  Area  Profile'  You  may  select  from  standard  Area  Profiles  sup¬ 
plied  with  this  program,  or  create  non-standard  ones  from  the  'Create  Custom  Area 
Profile'  choice  on  the  Main  Menu. 

'Change  Ammunition  Consumption  Posture'  Ammunition  Consumption 
Postures  are  listings  of  mission  conditions,  such  as  '1st  Day  Defense'  that,  in  con¬ 
junction  with  Combat  Intensity  are  used  to  estimate  the  quantities  of  each  ammo 
DODIC  required. 

* 

'Change  Intensity'  Combat  Intensity,  such  as  Heavy',  is  used  in  conjunc¬ 
tion  with  Consumption  Posture  by  modifying  that  posture  through  multiplication 
with  the  Combat  Intensity  Factor.  * 

'Change  Intensity  Factor'  A  standard  Intensity  Factor  is  provided  with 
each  Combat  Intensity.  These  are  may  be  modified  for  a  particular  Parameter  Set, 
but  should  be  done  so  with  caution  as  the  results  will  be  non-doctrinal. 
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'Change  Class  I  Parameters'  In  the  Class  I  Ration  Cycle  you  wall  select 
three  rations,  which  will  be  used  by  the  Parameter  Set  as  the  daily  ration  cycle. 

'Change  Water  Consumption  Parameters'  These  should  usually  be  set  ac¬ 
cording  to  the  echelon  of  the  Task  Organization,  but  may  be  changed.  Larger 
quantities  are  calculated  for  higher  echeons. 

'Change  Class  VIII  (Medical)  Parameter'  Echelon  and  combat  intensity 
are  used  together  to  establish  a  medical  usage  factor  that  adjusts  Class  VIII 
estimates. 

E3.  Deleting  a  Mission  Parameter  Set 

Select  Parameter  Set 

Delete  Parameter  Set 

Return  to  Main  Menu 

'Select  Parameter  Set'  You  must  select  a  Parameter  Set  before  attempting 
to  delete  it. 

Delete  Parameter  Set'  After  you  have  selected  a  Parameter  Set,  you  may 
attempt  to  delete  it.  Parameter  Sets  which  are  in  use  by  a  Task  Organization  in  an 
Order  cannot  be  deleted. 

E4.  Create  Custom  Area  Profile 


* 


3 


Create  Custom  Area  Profile 
View  Area  Profiles 
Edit  Custom  Area  Profile 
Return  to  Main  Menu 

Delete  Custom  Area  Profile 


'Create  Custom  Area  Profile'  Area  Profiles  establish  the  distance  or 
timethat  fuel  burning  equipment  can  expected  to  be  operated  for  each  day.  While 
the  standard  Profiles  supplied  with  this  program  are  useful  in  doctrinal  calculation, 
they  do  not  account  for  exceptional  situations,  such  as  a  road  march  or  aircraft 


29 


flight  of  known  length  and  time.  You  may  create  Custom  Area  Profiles  based  on 
standard  Profiles,  but  you  must  assign  them  unique  names. 

'View  Area  Profiles'  You  may  view  all  Profiles,  standard  and  Custom. 

'Edit  Custom  Area  Profile'  You  may  only  edit  Custom  Profiles  that  you 
have  created.  If  you  edit  a  Profile,  future  logistics  estimates  of  Orders  that  use  that 
Profile  will  automatically  reflect  the  changes. 

Delete  Custom  Area  Profile'  You  may  only  delete  Custom  Profiles  that 
are  not  in  use  by  any  Task  Organization  in  any  Order. 

FI.  Creating  an  Order 

Create  Order 

View  Orders 

Assign  Task  Organizations 

Assign  Parameter  Sets  to  Task  Organization  Phases 

Return  to  Main  Menu 

'Create  Order'  Orders  combine  Task  Organizations  with  Mission  Profile 
Sets.  An  Order  consists  of  a  unique  Order  number  an  Order  description,  and  a  se¬ 
lection  of  Task  Organizations.  An  order  may  have  up  to  nine  Phases,  each  Phase 
being  of  up  to  99.99  days  in  length.  Each  Task  Organization  is  assigned  a  Mission 
Profile  Set  for  each  Phase  of  the  Order,  and  may  also  have  its  strength  adjusted  for 
each  Phase. 

■View  Orders'  Prior  to  creating  an  Order  you  may  view  previous  Orders  to 
aid  you  in  assigning  a  unique  Order  number. 

'Assign  Task  Organizations'  Any  number  of  Task  Organizations  may  be 
assigned  to  an  Order.  Only  Task  Organizations  not  previously  assigned  to  the  Or¬ 
der  will  be  offered  as  a  selection. 

'Assign  Parameter  Sets  to  Task  Organization  Phases’  You  may  assign  Pa¬ 
rameter  Sets  to  the  Task  Organizations  in  an  order,  one  for  each  Phase,  in  a  number 
of  ways.  Combining  the  following  ways  can  significantly  speed  up  this  process. 
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'Assign  one  Parameter  Set  to  all  Task  Organizations  and  Phases'  If  all  or 
most  of  the  Task  Organizations  in  this  order  will  be  using  the  same  Parameter  Set 
for  all  or  most  Phases,  use  this  option  to  assign  a  single  Parameter  Set  to  all. 

'Assign  a  Parameter  Set  to  a  single  Task  Organization  for  all  Phases' 

Use  this  option  if  a  Task  Organization  will  be  using  one  Parameter  Set  for 
all  or  most  Phases. 

'Assign  a  Parameter  Set  to  all  Task  Organizations  for  a  single  Phase.'  Use 
this  option  if  all  or  most  Task  Organizations  will  be  using  a  common  Parameter  Set 
in  a  specific  Phase  of  the  Order. 

'Assign  Parameter  Sets  to  a  Task  Organization  Phase  by  Phase'  This  is  the 
most  flexible  option  to  assign  Parameter  Sets  to  each  Phase  for  a  single  Task 
Organization. 

*View  this  Orders  Task  Organizations  and  Parameter  Sets  by  Phase’  Use 
this  option  to  view  settings  without  changing  them. 

F2.  Editing  an  Order 


Get  Order 

View/Delete  Task  Organizations 
Assign  Task  Organizations 

Assign  Mission  Parameter  Sets  to  Task  Organization  Phase 
Assign  Strength  Percentages  to  Task  Organization  Phases 
Edit  Order  Description,  Phases,  and  Phase  Lengths 
Save  and  Edit  Another 
Return  to  Main  Menu 


Assign  one  Parameter  Set  to  all  Task  Organizations  and  Phases 
Assign  a  Parameter  Set  to  one  Task  Organization  for  all  Phases 
Assign  a  Parameter  Set  to  all  Task  Organizations  for  a  single  Phase 
Assign  Parameter  Sets  to  a  Task  Organization  Phase  by  Phase 
View  this  Orders  Task  Organizations  and  Parameter  Sets  by  Phase 
Return  to  Previous  Menu 
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Assign  one  Strength  to  all  Task  Organizations  and  Phases  this  Order 
Assign  a  Strength  to  one  Task  Organization  for  all  Phases'  this  Order 
Assign  a  Strength  to  all  Task  Organizations  for  a  single  Phase  this  Order 
Assign  Strengths  to  a  Task  Organization  Phase  by  Phase  for  this  Order 
View  this  Orders  Task  Organizations  and  Strengths  by  Phase 
Return  to  Previous  Menu 

'Get  Order'  You  must  choose  an  order  before  making  any  changes. 

’View/Delete  Task  Organizations’  Use  this  option  to  review  the  names  of 
all  Task  Organizations  already  assigned  to  this  order,  and  optionally,  delete  them. 
Task  Organizations  deleted  from  an  Order  are  still  in  the  SURE  system,  and  may 
be  added  back,  but  you  will  have  to  assign  Parameter  Sets  again. 

'Assign  Task  Organizations'  You  may  add  additional  Task  Organizations 
to  your  Order.  Only  Task  Organizations  not  already  assigned  to  the  Order  will  be 
shown. 


’Assign  Mission  Parameter  Sets  to  Task  Organization  Phases’  Each  Task 
Organization  must  have  a  Parameter  Set  assigned  for  each  Phase  of  the  Order. 

’Assign  Strength  Percentages  to  Task  Organization  Phases'  Each  Units 
equipment  and  assigned  personnel  are  used  as  100%  strength  unless  you  change 
this  figure  for  the  Task  Organization  for  a  specific  phase  of  an  Order.  For  exam¬ 
ple,  reducing  a  Task  Organizations  strength  by  90%  for  a  particular  Phase  would 
also  reduce  all  logistics  estimates  by  10%  for  that  Phase  for  all  Units  in  that  Task 
Organization. 

*Edit  Order  Description,  Phases,  and  Phase  Lengths'  Although  you  may 
change  the  number  of  Phases  in  an  Order,  if  you  increase  them,  you  will  also  have 
to  assign  Parameter  Sets  for  each  Task  Organization  for  each  Phase  added. 

'Save  and  Edit  Another'  Changes  are  made  as  you  enter  them,  but  this  op¬ 
tion  resets  this  subsystem  to  assist  you  in  making  changes  to  another  order. 


F3.  Deleting  an  Order 


Get  Order 
Delete  Order 
Return  to  Main  Menu 


'Get  Order'  You  must  first  select  an  Order  before  having  the  option  to  De¬ 
lete  it. 


'Delete  Order'  If  you  delete  an  Order,  you  will  not  be  able  to  un-delete  it 
and  get  it  back! 

G 1 .  Orders-based  Reports 

Select  Order/Calcuate  Consumption 

POL  Estimate 

Ammo  Estimate 

Other  Supply  Estimates 

Return  to  Main  Menu 


Print  Estimate  to  Printer 
Print  Estimate  to  Screen 
Print  Estimate  to  ASCII  File 
Change  Printer  Defaults 
Return  to  Previous  Menu 


LIN  by  LIN  Report,  plus  all  Totals 
Summary  Report  -  Unit,  Task  Org,  and  Order  Totals 
Summary  Report  -  Task  Org  and  Order  Totals  Only 
Summary  Report  -  Order  Totals  Only 


Orders-based  Reports  produce  logistic's  estimates  from  your  Units,  Task- 
Organizations,  Parameter  Sets,  and  Orders.  You  will  be  offered  a  choice  to  print 
them  to  the  printer,  to  your  computer  screen,  or  to  a  an  ASCII  (plain  text)  file 
which  can  be  imported,  edited,  and  printed  with  any  workprocessor. 

'Select  Order/Calculate  Consumption'  You  must  select  an  Order,  after 
which  basic  calculations  for  consumption  data  will  be  automatically  performed. 

'POL  Estimate'  Bulk  POL  consumption  estimates  are  automatically  made 
by  equipment  LIN,  by  Unit,  by  Task  Organization,  and  for  the  Order  as  a  whole, 
divided  by  Phase.  You  will  have  the  option  to  print  the  estimate  to  the  printer,  a 
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file,  or  the  screen  and  to  print  out  estimates  LIN  by  LIN,  or  summations  by  Unit, 

Task  Organization,  and  Order  only.  As  this  report  can  be  quite  long,  printing  to  a 
file  is  recommended.  The  ASCII  text  file  created  can  be  imported  into  any  word 
processor  for  viewing  or  printing. 

'Ammo  Estimate'  Ammunition  consumption  estimates  are  automatically 
made  by  DODIC,  equipment  LIN,  Unit,  Task  Organization,  and  for  the  order  as  a  ^ 

whole,  divided  by  Phase.  You  will  have  the  option  to  print  the  estimate  to  the 
printer,  a  file,  or  the  screen  and  to  print  out  estimates  LIN  by  LIN,  or  as  DOCIC 
summations  by  Unit,  Task  Organization,  and  for  the  Order  as  a  whole.  As  this  re¬ 
port  can  be  quite  lone,  printing  to  a  file  is  recommended.  The  ASCII  text  file  cre¬ 
ated  can  be  imported  into  any  word  processor  for  viewing  or  printing. 

'Other  Supply  Estimates'  Class  I,  Water,  Class  IV  and  Class  VIII  con¬ 
sumption  estimates  are  made  for  each  Unit,  and  summed  by  Task  Organization  and 
for  the  Order  as  a  whole.  You  will  have  the  option  to  print  the  estimate  to  the 
printer,  a  file,  or  the  screen.  As  this  report  can  be  quite  long,  printing  to  a  file  is 
recommended.  The  ASCII  test  file  created  can  be  imported  into  any  work  proces¬ 
sor  for  viewing  or  printing. 

POL  Reports 

SURE  Bulk  POL  Reports  list  estimated  bulk  consumption  by  Unit,  Task 
Organization,  Phase  of  the  Order,  and  Order  Total. 

If  you  choose  the  TIN  by  LIN1  option  the  report  will  list  fuel  consumption  t 

data  and  fuel  tank  capacity  for  each  fuel-using  LIN  in  each  unit.  Fuel  tank  capacity 
is  for  internal  storage  only  -  a  bulk  POL  tanker,  for  example,  will  NOT  have  its 
bulk  load  included  in  this  figure.  After  the  LIN  reports,  you  will  get  total  fuel  pro-  ^ 

jections  by  Unit,  Task  Organization  by  Phase,  Phase  of  the  Order,  and  Order  Total 
reports. 

If  you  choose  one  of  the  'Summary  Report’  options  you  will  not  get  LIN's 
and  their  individual  consumptions.  You  will  still  get  Unit,  Task  Organizationby 
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'  Phase,  Phase  of  the  Order,  and  Order  Total  reports  according  to  the  option  you 

choose.  As  these  reports  can  be  quite  lengthly,  the  ’Summary  Report  -  Task  Org 
and  Order  Totals  Only’  choice  may  be  your  best  compromise  between  detailed  in¬ 
formation  and  length. 

All  estimates  are  adjusted  for  any  changes  to  strength  percentage  you  may 

f  have  made  for  a  particular  Task  Organization  in  a  particular  Phase  of  the  Order. 

Ammunition  Reports 

1  SURE  Ammunition  Reports  list  estimated  ammunition  consumption  by 

Unit,  Task  Organization,  Phase  of  the  Order,  and  Order  Total. 

If  you  choose  the  TIN  by  LIN1  option  the  report  will  list  DODIC  con¬ 
sumption  data  and  basic  loads  for  each  DODIC-using  LIN  in  each  Unit.  Weights 
and  cubes  shown  are  for  ammunition  consumed,  not  for  basic  loads.  After  the  LIN 
reports  by  DODIC  you  will  get  DODIC  wrap-ups  by  Unit,  Task  Organization  by 
Phase,  Phase  of  the  Order,  and  Order  Total. 

If  you  choose  one  of  the  'Summary  Report'  options  you  will  not  get  LIN's 
and  their  individual  consumptions.  You  will  still  get  Unit,  Task  Organizationby 
Phase,  Phase  of  the  Order,  and  Order  Total  reports  according  to  the  option  you 
choose.  As  these  reports  can  be  quite  lengthly,  the  'Summary  Report  -  Task  Org 
and  Order  Totals  Only'  choice  may  be  your  best  compromise  between  detailed  in¬ 
formation  and  length. 

*  All  estimates  are  adjusted  for  any  changes  to  strength  percentage  you  may 

have  made  for  a  particular  Task  Organization  in  a  particular  Phase  of  the  Order. 

y  'Other  Supply  Estimates' 

In  addition  to  POL  and  ammunition  reports,  SURE  can  also  produce  esti¬ 
mates  for  Rations,  Water,  Barrier/Construction  material,  and  Medical  Supplies 
(Class  VIII).  These  are  based  on  the  number  of  personnel  authorized  to  each  Unit, 
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adjusted  by  any  strength  percentage  change  you  may  have  made  to  the  Unit's  Task 
Organization  for  any  particular  Phase  of  the  Order. 

Rations  are  by  ration  type,  in  number  of  meals,  water  is  in  gallons, 
barrier/construction  material  is  in  pounds,  and  medical  supplies  are  in  pounds.  Es¬ 
timates  are  given  for  each  Unit,  for  Task  Organizations  as  a  whole  by  Phase,  for 
each  Phase  of  the  Order,  and  for  the  Order  Total.  ^ 

G2.  Systems  Reports 

SRCs  (TOE  Listings) 

SRC  with  LINs 
Units 

Units  with  LINs 

Parameter  Sets 

Task  Organizations 

Task  Organizations  with  Units 

Orders 

Orders  with  Task  Organizations  and  Profiles 
Orders  with  Task  Orgs,  Units,  and  Profiles 
Change  Printer  Defaults 
Return  to  Main  Menu 

'SRCs  (TOE  Listings)'  A  complete  list  of  all  SRC’s  supplied  with  the 
SURE  system.  This  listing  is  useful  in  planning  the  Units  you  need  to  create,  par¬ 
ticularly  as  many  SRC's  are  similar. 

'SRC  with  LINs'  You  may  select  one  SRC  and  print  it  with  all  of  the  TOE 
equipment  items  and  quantities. 

TJnits’  You  may  print  a  complete  list  of  all  Units  you  have  created  within 
the  SURE  system.  This  list  is  useful  is  planning  Task  Organizations. 

'Units  with  LINs'  You  may  print  a  listing  of  your  Units  with  their  assigned  l 

equipment  LINs  and  quantities. 

Tarameter  Sets'  You  may  print  a  list  of  all  of  the  Parameter  Sets  you  have 
created  with  their  assigned  settings. 
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Task  Organizations'  You  may  print  a  list  of  all  Task  Organizations  you 
have  created  within  the  SURE  system. 

Task  Organizations  with  Units'  You  may  print  a  list  of  all  Task  Organiza¬ 
tions  with  their  assigned  Units. 

'Orders'  You  may  print  a  list  of  all  Orders  you  have  created  within  the 
SURE  system. 

'Orders  with  Task  Organizations  and  Profiles'  You  may  print  a  list  of  all 
Orders  with  their  Task  Organizations  and  Profiles. 

'Orders  with  Task  Orgs,  Units,  and  Profiles'  You  may  print  a  list  of  all  Or¬ 
ders  with  their  Task  Organizations,  the  Units  assigned  to  those  Task  Organizations, 
and  the  Profiles  assigned  to  each  Task  Organization  for  each  Phase  of  the  Order. 

'Change  Printer  Defaults'  You  may  change  printer  page  width  and  page 

length. 

Reindex  Files 

Backup  Files 

Restore  Files 

Printer  Setup 

Compressed  Print  ON 

Compressed  Print  OFF 

Heindex  Files'  Reindexing  recreates  all  indexes  used  by  SURE.  It  is  not 
normally  needed,  as  SURE's  compiled  dBase  2.0  system  should  automatically 
prompt  you  if  it  needs  to  repair  an  index.  However,  if  your  .MDX  index  files 
should  become  deleted  and  you  do  not  have  a  current  backup,  this  will  recreate  the 
.MDX  index  files.  Do  NOT  use  this  option  without  a  reason! 

'Backup  Files'  You  may  backup  your  SURE  files  to  a  floppy  disk.  You 
must  have  a  blank,  formatted  floppy  to  start.  If  you  use  a  floppy  containing  a  pre¬ 
vious  SURE  backup  your  old  files  will  be  overwritten. 
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'Restore  Files'  If  you  have  a  floppy  disk  with  files  from  a  backed-up 
SURE  system  you  may  Restore  them  to  this  computer.  If  you  do  so,  your  current 
files  will  be  overwritten,  and  all  data  entered  in  this  system  will  be  lost  and  re¬ 
placed  from  the  files  on  the  floppy  disk.  It  is  HIGHLY  recommended  that  you  do 
a  backup  of  this  system  first  before  doing  a  Restore. 

'Printer  Setup'  Adjust  left  printer  margin  and  page  length.  The  type  of  * 

printer  for  compressed  print,,  if  any,  is  also  displayed. 

'Compressed  Print  ON'  Many  SURE  reports  must  be  printed  in  17-pitch,  y 

compressed  print.  If  yourprinter  does  not  have  a  panel  switch  SURE  will  try  to  set 
the  option  for  you.  Once  this  option  is  set,  SURE  will  remember  what  printer  type 
was  choosen  and  automatically  select  compressed  print  for  reports  where  it  is 
required. 

'Compressed  Print  OFF’  If  you  have  set  compressed  print  on  from  the 
SURE  system,  this  option  will  try  to  restore  your  printer  to  normal  print. 


r 
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CHAPTER  IV 

LIMITATIONS  AND  RECOMMENDATIONS 


Although  a  radical  improvement  over  the  previous  SURE  1.0  system, 
SURE  2.0  suffers  from  technical,  developmental,  and  doctrinal  limitations  that 
should  be  overcome  in  future  versions. 

The  dBase  IV  2.0  Compiler  For  Dos 

SURE  2.0’s  technical  limitations  are  the  result  of  using  Borland's  dBase 
IV  2.0  environment  for  development  and  fielding.  While  an  improvement  in  both 

i 

features  and  speed  over  previous  versions  of  dBase,  this  DOS  based  version  can 
neither  run  on  'minimal'  machines  —those  with  640K  RAM—  nor  provides  the  ad¬ 
vantages  of  a  Graphical  User  Interface  (GUI).  As  a  result,  the  advantages  of 
event-driven  programming  —mice,  slider  bars,  transparent  printer  and  display  han¬ 
dling,  etc.—  in  a  Windows  or  OS/2  environment  are  unavailable  to  the  user,  and 
Computer  Aided  Software  Engineering  (CASE)  tools  such  as  those  in  Computer 
Associates  dBfast  are  unavailable  to  the  programmer. 

SURE  2.0  does  posses  the  advantage  of  being  able  to  run  on  merely  obso¬ 
lescent  machines  with  2MB  of  RAM,  and  without  a  mouse,  making  it  suitable  for 
use  on  older  machines,  particularly  laptops,  many  of  which  are  still  in  the  system. 
However,  as  SURE  1.0  would  run  on  virtually  any  DOS  machine  with  a  copy  of  an 
appropriate  version  of  Lotus  Developments  1-2-3™,  future  versions  of  SURE 
could  and  should  be  ported  to  a  GUI  environment.  dBfast™  for  Windows™  from 
Computer  Associates  is  currently  available  for  Microsoft  Windows™,  and  an 
OS/2™  version  is  expected. 
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Procedural  Limitations 


Limitations  of  Task  Organizing  only  one-level  deep. 

As  noted  in  this  paper's  Introduction,  SURE  2.0  has  significant  value  in 
facilitating  the  logisticians  efforts  to  perform  parallel  planning  along  with  his  ma¬ 
neuver  counterpart  as  a  result  of  its  orders-based  planning  paradigm.  Although  * 

utilization  of  the  '2  levels  down'  planning  concept  makes  SURE  2.0  valid  for  many 

operational  scenarios,  considerable  additional  utility  would  be  gained  by  adding  the 

.....  9 

capability  to  assign  Task  Organizations  to  other  Task  Organizations.  This  was  one 

of  the  desires,  although  not  a  requirement  of  CASCOM's  SURE  2.0  proposal,  and 

is  highly  desirable  for  the  next  reiteration  of  the  program. 

Doctrinal  Limitations 

Lack  of  a  single  CSS  approach  to  evaluation  of  the  battlefield. 

Programming  the  SURE  system  revealed  clearly  what  was  hidden  in  the 
complexity  of  FM  101-10-1/2:  CSS  planners  do  not  have  a  uniform  way  of 
analyzing  the  battlefield,  and  insufficient  guidance  to  confidently  use  the  ways  that 
are  established.  Separate  parameters  must  be  set  for  ammunition,  fuel,  water,  and 
medical  calculations  only  make  sense  if  they  relate  to  the  nature  of  the  material  be¬ 
ing  issued,  not  the  nature  of  the  battlefield. 

Users  must  now  select  from  a  bewildering,  uncoordinated  set  of  choices  r 

that  need  resolution  in  the  near  term.  In  particular,  the  CSS  community  needs  to 
develop  a  uniform  set  of  standards  for  evaluating  battlefield  conditions,  promoting 
both  a  common  set  of  terms  and  a  communality  of  understanding  of  what  the  terms 
mean.  What  are  the  precise  indicators  for  ’Heavy’  combat?  Are  they  different  in 
different  theaters,  or  for  different  types  of  units? 
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Limited  use  of  some  outputs. 


Although  in  accordance  with  doctrine,  SURE  2.0's  outputs  for  Class  IV 
and  Class  VIII  material  are  of  very  limited  use.  Pounds  of  barrier,  construction, 
and  especially  medical  material  may  be  useful  for  TRANSCOM  or  for  planners  at 
theater  level,  but  such  figures  are  incongruous  in  a  program  that  estimates  the  num¬ 
ber  of  rounds  of  9mm  ammunition  and  their  weight  to  two  decimal  places!  A 
knowledge  of  geographical  area,  weather,  and  mission  conditions  could  and  should 
be  used  to  estimate  quantities  of  sandbags,  4X4’s,  sheets  of  3/4"  marine  plywood, 
pickets,  Mod  Med  kits,  units  of  blood,  etc. 

Conclusion 

The  SURE  2.x  will  likely  continue  for  several  years  as  a  compiled  dBase 
system  running  in  the  DOS  environment.  Its  weaknesses  reflect  a  lack  of  consis¬ 
tency  within  the  CSS  community,  and  should  be  addressed  in  doctrine  and  then  in 
the  program's  capabilities.  SURE  2.0  is  not  an  extremely  simple  program  to  use, 
but  it  makes  available  of  wealth  of  reports  in  a  level  of  detail  which  would  be 
highly  impractible  to  do  manually,  and  it  provides  extensive  Help  systems  to  coach 
the  new  user  through  the  process. 
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ENDNOTES 


XFM 101-10-1/2,  p.  2-0. 

2  As  of  this  writing,  the  original  SURE  worksheets  continue  to  be  updated, 

>  the  latest  version  being  1.1.  As  they  are  essentially  similar,  all  worksheet  versions 

are  refered  to  as  T.x.' 

3U.S.  Army,  'Supply  Usage  Requirements  Estimator  (SURE)  Version  2.0 
y  (Compiled  Version),  (Fort  Lee:  CASCOM,  not  dated),  p.  1 . 

4  The  SURE  2.0  convention  of  capitilization  of  major  SURE  elements  is 
followed  throughout  this  document.  These  include  all  user-created  elements:  Unit, 
Task  Organization,  Parameter  Set,  and  Order. 

5  Databases  are  shown  with  initial  capitals,  i.e.  ’Csrclinq,’  while  database 
fields  are  lowercase. 

6  More  detail  on  SURE  2.0  program,  database,  and  procedure  relationships 
can  be  found  in  the  appendices  under  the  Tree  Diagram. 

7  Parameter  Sets  were  originally  refered  to  as  Mission  Profiles,  and  many  of 
the  procedure  names  reflect  this  earlier  coding.  The  name  was  changed  to 
Parameter  Sets  to  avoid  user  confusion  with  Area  Profiles,  which  are  only  one 
element  in  a  Parameter  Set. 
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ANNEX  A 


CASCOM  SURE  2.0  REQUIREMENTS 


> 


Supply  Usage  Requirements  Estimator  (SURE) 
Version  2.0  (Compiled  Version) 

General  Specifications 


1 .  Background.  The  Supply  Usage  Requirements  Estimator  (SURE)  consists  of  a 

*  series  of  Lotus  1-2-3  macro-driven  programs  designed  to  assist  operational  planners  is 

estimating  supply  requirements  for  Army  units.  The  current  version  of  the  program 
(Version  1.01,  Sep  93)  allows  planners  to  estimate  detailed  equipment-based 
consumption  for  supply  classes  III  and  V,  and  population-based  consumption  for 
r  classes  I,  II,  IV,  VI,  and  VIII,  and  water.  The  spreadsheets  included  with  SURE  contain 

a  number  of  databases  upon  which  calculations  are  based.  The  major  databases 
include: 

a.  SRC,  Designation,  Strength. 

b.  Equipment  Density  by  SRC. 

c.  Ammunition  Rates  by  LIN  and  DODIC  for  a  number  of  postures. 

d.  POL  Rates  by  LIN. 

e. .  Standard  Equipment  Usage  Profiles  for  a  number  of  geographic  locations. 

f.  Factors  for  population  based  consumption. 

g.  Various  factors  pertaining  to  combat  loads,  combat  intensities,  climate,  unit 
echelon,  theater. 

These  databases,  combined  with  the  macros  contained  within  the  spreadsheets, 
provide  a  means  by  which  the  user  can  automatically  calculate  the  desired  supply 
estimates  within  a  matter  minutes. 

2.  Limitations.  Although  the  current  version  of  SURE  puts  an  impressive  capability 

g  within  the  hands  of  the  user,  it  does  have  a  significant  limitation  in  that  it  requires 

Lotus  1-2-3  Version  2.x  in  order  to  run  properly.  This  forces  the  SURE  spreadsheets  to 
be  limited  by  the  memory  constraints  imposed  by  Lotus  1-2-3.  In  addition,  this  requires 
each  potential  SURE  user  to  own  or  purchase  a  copy  of  Lotus  1-2-3.  The  matter  is 
complicated  by  the  fact  that  there  are  several  versions  of  Lotus  1-2-3  available  (2.x, 

3. x,  Windows)  as  well  as  versions  of  competing  software  (e.g.,  Excel,  Quattro  Pro) 
which  may  or  may  not  process  Lotus  macros.  Many  locations  have  standardized  on 
another  product  as  their  preferred  spreadsheet.  As  a  result,  many  potential  users  are 
unable  to  run  SURE  without  first  incurring  an  additional  expense. 
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3.  Compiled  SURE.  Witii  the  above  limitations  putting  a  ceiling  on  the  expansion  of 
SURE,  CASCOM  (FD&E)  has  decided  that  the  next  major  version  of  SURE  should  be 
totally  reprogrammed  as  a  database,  as  opposed  to  spreadsheet,  application.  Further, 
this  database  application  will  be  programmed  in  a  language  that  can  be  compiled  to  a 
stand-alone  application,  therefore  not  requiring  users  to  possess  any  other  application 
software  in  order  to  run.  This  new  version  of  SURE  will  possess,  at  bare  minimum,  all 
the  functionality  of  the  Lotus-based  software.  In  all  likelihood,  the  functionality  will  be 
greatly  enhanced  to  include  features  described  below. 

4.  Features.  The  following  is  a  list  of  desired  hardware  and  software  features  that 
apply  to  the  new  SURE  program.  These  are  not  to  be  considered  hard  and  fast 
requirements,  but  rather  "goals"  which  may  require  refinement  as  the  programming 
effort  takes  place. 

a.  Hardware  Environment.  The  compiled  SURE  program  should  be  capable  of 
being  run  on  a  minimum  configuration  of  an  IBM-compatible  80286-based  PC 
with  640K  of  RAM,  a  20MB  Hard  Drive,  and  MS-DOS  3.x.  A  color  monitor 
cannot  be  assumed,  as  monochrome  monitors  and  liquid  crystal  displays  (LCD) 
may  still  be  in  use.  (Although  the  initial  release  of  the  compiled  SURE  program 
will  be  a  DOS-based  program,  future  development  may  include  a  Windows- 
based  version  as  well.  This,  of  course,  would  set  a  different  minimum  for 
hardware  requirements.) 

b.  Compiler.  The  SURE  program  must  be  compiled  to  a  stand-alone 
application.  The  dependency  upon  additional  run-time  software  is  not 
acceptable  unless  the  compiler  licensee  specifically  grants  the  developer  the 
rights  to  unlimited  distribution  of  the  run-time  software.  Preferred  development 
environment  is  Borland's  dBASE  Compiler  Version  2.0.  This  product  creates  an 
EXE  file  which  will  run  in  a  stand-alone  mode.  The  Borland  environment  has  the 
advantage  of  using  the  standard  dBASE  IV  Version  2.0  interpretive  package  as 
a  development  and  testing  tool. 

c.  Documentation.  All  source  code  will  be  internally  documented  through  the 
liberal  use  of  comments.  Meaningful  variable  names  will  also  be  used  to 
enhance  the  readability  and  understandability  of  the  source  code.  All  code 
developed  will  remain  the  property  of  the  U.S.  Army  and,  in  particular,  CASCOM. 
Appropriate  user  documentation  will  be  developed  as  well. 

d.  File  Structures.  All  data  files  will  use  the  dBASE-compatible  .DBF  file 
structure.  All  rates,  profiles,  factors,  unit  data,  etc.,  will  be  contained  in  data 
files,  as  opposed  to  being  embedded  within  the  source  code.  This  structure  is 
required  so  that  updates  to  the  data  can  be  easily  made  without  recompiling  the 


program.  Thus,  users  may  receive  updated  data  disks  without  having  to  update 
the  program. 

e.  User  Interface.  The  user  interface  should  be  constructed  so  that  the  program 
is  virtually  self-explanatory.  Context-sensitive  help  screens  and  functions  are 
greatly  desired.  The  program  should  employ,  if  at  all  possible,  the  techniques  of 
scrolling  pick  lists  (e  g.,  for  selecting  an  SRC  to  use),  radio  buttons  (e  g.,  for 
selecting  only  one  of  many  echelons,  intensities,  profiles,  postures,  climates, 
etc.),  and  check  boxes  (e  g  ,  in  instances  where  more  than  one  of  many  choices 
can  be  made).  Programming  for  optional  mouse  usage  is  also  desirable. 

f.  Colors.  Liberal  use  of  colors  is  desirable,  but  the  colors  chosen  should  be  of 
sufficient  contrast  so  that  the  program  can  be  used  on  monochrome  and  LCD 
screens. 

g.  Output.  Users  should  be  allowed  to  direct  output  to  either  the  screen  or  the 
printer.  Existing  SURE  report  formats  are  to  be  considered  adequate  for  the  first 
cut  of  the  compiled  version. 

h.  Integration.  The  current  version  of  SURE  requires  the  user  tb  make  separate 
passes  through  the  program  for  Class  III,  Class  V  and  the  population  based 
factors.  The  compiled  SURE  should  integrate  this  process  so  that  a  user  need 
make  only  one  pass  through  the  program  to  calculate  estimates  of  any  or  all  of 
the  available  classes  of  supply.  Also,  the  population  based  portion  of  compiled 
SURE  should  draw  default  population  figures  from  the  SRC/task  force  used  for 
the  other  classes  of  supply. 

i.  SRC  Selection.  When  a  user  is  expected  to  enter  an  SRC,  they  should  have 
the  choice  of  either  entering  the  SRC  directly  or  scrolling  through  the  list  of 
available  SRCs  in  order  to  select  the  one  desired. 

j.  Task  Force  Building.  The  user  should  be  able  to  incorporate  an  existing  task 
force  within  a  new  task  force.  For  example,  if  a  user  is  constructing  a  division¬ 
sized  task  force,  he  or  she  should  be  able  to  draw  upon  any  brigade-sized  task 
forces  they  developed  earlier.  Adding  this  feature  may  require  a  validation 
mechanism  to  prevent  a  user  from  creating  a  circular  relationship. 

k.  Save  Parameters.  Given  that  a  user  will  have  to  provide  a  set  of  parameters 
in  order  to  initiate  a  SURE  run  (e  g.,  profile,  posture,  intensity,  feeding  policy, 
climate,  echelon,  theater,  etc.),  the  program  should  allow  the  user  to  name  and 
save  these  parameters  for  future  use,  thus  avoiding  having  to  reenter  them. 

Users  should  be  able  to  retrieve,  modify,  copy  and  delete  parameters  as 
needed. 
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l. '  Scenario  Building.  A  desired  (bu{  not  absolutely  required)  feature  of  the  first 
version  of  compiled  SURE  is  the  ability  to  create  a  "scenario"  over  time  by 
varying  the  sets  of  parameters  applied  to  a  unit,  set  of  units,  and/or  task  force 

m.  Other  Classes  of  Supply.  It  is  highly  likely  that  sufficient  data  and 
methodology  will  be  available  in  order  to  incorporate  classes  VII.  and  IX  into  the 
first  compiled  version  of  SURE.  The  programming  effort  should  be  structured  to 
allow  for  this  probability. 

n.  Profile  Building.  Users  should  be  able  to  build  their  own  equipment  usage 
profiles  that  can  be  used  in  lieu  of  the  ones  provided  with  the  SURE  program. 

o.  Menu  Structure.  Menus  should  be  logically  structured  so  that  the  return  path 
from  a  nested  menu  selection  is  the  reverse  of  the  path  taken  to  make  the 
selection  in  the  first  place. 

5.  In-Process  Reviews.  Once  initiated,  the  work  in  progress  will  be  subject  to  semi¬ 
monthly  in-process  reviews,  with  the  first  review  tentatively  scheduled  for  January  15, 
1994.  These  reviews  will  consist  of  assessing  and  testing  the  program  developed  to ' 
that  point  and  making  recommendations  for  changes  and/or  further  development.  It  is 
CASCOM's  goal  to  have  a  compiled  version  of  SURE  ready  for  distribution  by  June  30, 
1994.  Therefore,  a  final  draft  working  copy  of  the  program  should  be  available  no  later 
than  May  15,  1994.  Should  the  program  be  developed  to  include  other  classes  of 
supply,  the  necessary  logic,  algorithms  and  data  bases  will  be  made  available  no  later 
than  February  28,  1994. 

6.  Summary.  The  intent  of  this  document  is  to  lay  down  the  framework  for  the 
compiled  SURE  program.  There  is  enough  detail  contained  herein  to  provide  the  basis 
for  discussion  regarding  the  SURE  programming  effort.  More  detailed  specifications 
will  be  prepared  as  required. 
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MEMORANDUM  OF  UNDERSTANDING  BETWEEN  CASCOM 

AND 

THE  SCHOOL  FOR  ADVANCED  MILITARY  STUDIES 


MEMORANDUM  OF  UNDERSTANDING 
BETWEEN 

CASCOM  AND  SAMS 

FOR:  Commander,  U.S.  Army  Combined  Arms  Support  Command  (CASCOM),  ATTN: 
ATCL-FSP,  Fort  Lee,  Virginia  23801-6000 

Director,  The  School  for  Advanced  Military  Studies  (SAMS),  Command  and  General  Staff 
College,  Fort  Leavenworth,  Kansas  66027 

SUBJECT:  Agreement  between  Commander,  CASCOM  and  Director,  SAMS  for  the  production  of 
SURE  2.0. 

1.  PURPOSE:  This  memorandum  stipulates  the  terms-and  conditions  for  production  of  Supply 
Usage  Requirements  Estimator  (SURE)  2.0  as  a  database-based,  stand-alone  replacement  for  the 
current  1-2-3-based,  macro  driven  version. 

2.  AGENCIES:  The  U.S.  Army  Combined  Arms  Support  Command  (CASCOM)  is  the  logistics 
planning  factors  manager  for  the  Army.  Within  CASCOM,  the  planning  factors  mission  is  assigned 
to  the  Planning  Factors  Management  Branch,  Force  Development  and  Evaluation  Directorate.  The 
Logistics  Data  Base  (LDB),  developed  by  the  CASCOM  to  store,  process,  and  disseminate  data  for 
all  classes  of  supply,  is  physically  located  at  the  Directorate  of  Information  Management, 
Information  Systems  Command,  Fort  Leavenworth,  Kansas.  The  School  for  Advanced  Military 
Studies  (SAMS),  is  an  element  of  the  Command  and  General  Staff  College,  Fort  Leavenworth,  KS. 

3.  RESPONSIBILITIES:  CASCOM  will  provide  SURE  1.0,  basic  databases  in  .dbf  format,  a 
copy  of  dBase  2.0  for  a  programming  environment,  and  will  specify  minimum  requirements  for 
SURE  2.0.  SAMS  will  provide  a  student/programmer  who  will  be  awarded  credit  for  one 
monograph  for  this  effort,  and  will  insure  structured  direction  of  the  project  through  use  of  one  or 
more  monograph  directors. 

4.  MILESTONES: 


ITEM 

PROJECTED  COMPLETION 

STATUS 

CASCOM  Visit 

5-7  December  1993 

Completed  5-7  Dec  93 

Prospectus  Turn-in 

24  January  1994 

Complete  CASCOM  MOU 

24  January  1994 

First  IPR  (Program  Structure) 

24  January  1994 

Second  IPR  (ALPHA  Code) 

23  February  1994 

Third  IPR  (BETA  Code)  [CASCOM  Visit] 

22  March  1994 

Monograph  Final  -  Release  Candidate  Code 

20  April  1994 

Monograph  Final  to  DGDP 

4  May  1994 

Program  Release  by  CASCOM 

TBD 
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5.  EFFECTIVE  DATE.  This  agreement  is  effective  from  24  January  1994  until  release  of 
program  in  May,  1994. 


FOR  THE  COMMANDER: 


COL,  AR  COL,  TC 

Director,  SAMS  Director,  Force  Development  > 

and  Evaluation 


* 
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ANNEX C 


DEVELOPMENTAL  NOTES 


CASCOM  Interim  Comments 


In  addition  to  weekly  telephone  contact  with  Mr.  Bob  Miller,  two  sets  of 
interim  comments  were  made  by  CASCOM  during  SURE  2.0  development.  The 
first,  dated  17  February  1994,  was  received  from  Mr.  Miller  early  enough  in  the 
*  development  process  to  be  acted  upon. 

The  second,  dated  18  March  1994,  was  received  in  a  meeting  with  Mr. 
y 

Alex  Blair.  It  included  some  items  not  part  of  the  original  specifications  or  MOU. 
This  document  is  divided  into  three  areas,  'Minimum  Essential  Requirements,'  'Fea¬ 
tures  That  Are  Highly  Desirable  for  an  Effective  SURE  V  2.0,'  and  'Features  That 
Are  Desirable,  but  Not  Necessary  for  an  Effective  SURE  V  2.0.' 

Most  of  the  new  'Minimum  Essential  Requirements’  of  the  18  March 
document  were  met,  with  the  primary  exceptions  of 'backing-out'  from  all  SURE 
processes  using  the  ESC  key.  Although  this  is  technically  possible,  complete  re¬ 
coding  of  virtually  all  menus  would  be  required,  an  unfeasible  request  ninety  days 
and  10,000  lines  into  the  program.  A  compromise  was  reached  concerning  the  use 
of  SRC's  vs.  Units,  where  both  capabilities  would  be  included  when  selecting  or 
editing. 

Under  the  'Highly  Desirable'  listing,  use  of  the  Enter  key  to  move  forward 

/ 

was  included  for  all  possible  browse  screens.  Task  Force  (Task  Organization) 
within  a  Task  Force  capability  was  not,  for  reasons  covered  in  the  main  body  of  the 
monograph.  Menu’s  were  not  restructured,  although  additional  on-screen  Help, 
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plus  a  context-sensitive  Help  system  now  facilitate  user  use  of  an  extremely  capa¬ 
ble,  though  complex  system. 

'Desirable  by  Not  Necessary'  features  were  retained.  'Scenario  Building,' 
as  CASCOM  terms  it,  is  the  orders-based  process  that  is  at  the  heart  of  the  SURE 
2.0  system.  Context-sensitive  Help  was  added  and  has  been  retained. 


From:  Robwt  D.  M8I*f  To:  John  Friodion 


Date:  Z/17794  Tlmo:  1921:12 
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SURE  Version  2.0  Comments  -  based  on  buiid  of  15  Feb  94 

16-17  Feb  94 

John, 

You’ve  done  an  incredible  amount  of  work  in  a  very  short  period  of  time!  I  appreciate  the 
frequent  updates  of  the  code,  and  I  regret  that  I  haven't  been  able  to  provide  detailed 
feedback  for  you  until  now.  I  will  try  to  provide  you  as  much  detail  as  I  can  as  I  go  through  the 
program.  (I  will  be  creating  my  comments  in  one  window  while  I’m  running  the  program  in 
another.) 

Before  getting  into  some  nitty  gritty  specifics,  I'd  like  to  suggest  some  generalized  course 
corrections.  Once  these  are  in  place,  I  think  it  will  be  easier  to  address  some  of  the  specifics. 

The  thing  we  need  to  keep  in  mind  throughout  the  development  of  the  SURE  program  is  who 
the  user  is  and  what  he  or  she  expects.  I  think  we  must  assume  that  the  typical  SURE  user 
will  be  computer  literate  to  the  extent  that  they  are  able  to  run  applications  on  the  computer. 
For  example,  with  the  current  version  of  SURE,  the  user  must  be  literate  enough  to  know  how 
to  load  Lotus  1-2-3  and  how  to  retrieve  the  AASTART  spreadsheet.  They  are  not,  however, 
expected  to  be  familiar  with  the  underlying  Lotus  1-2-3  program.  Similarly,  with  Version  2  of 
SURE,  we  can  expect  the  user  to  be  literate  enough  to  know  how  to  start  the  SURE 
application.  However,  we  cannot  assume  that  they  have  any  familiarity  at  all  with  the 
underlying  dBASE  program. 

Therefore,  it  is  of  utmost  importance  that  we  keep  the  application  as  simple  to  use  as 
possible  and  the  keystrokes  in  line  with  what  will  probably  be  familiar  based  on  other 
applications.  For  example,  despite  the  idiosyncrasies  of  dBASE,  we  need  to  try  to  establish 
that  ENTER  is  used  to  make  a  positive  selection  and  ESCape  is  used  to  abort  and  go  back 
one  step.  Similarly,  if  help  is  employed,  it  should  be  tied  to  the  FI  key.  HOME  should  be 
used  to  take  a  user  to  the  top  of  a  list  (in  lieu  of  dBASE's  Ctrl-PgUp)  and  END  should  be 
used  to  get  to  the  bottom.  To  summarize,  let’s  use  the  following  as  "standard"  keystrokes  for 


the  following  activities: 

ENTER 

Used  to  select  an  option  from  a  list 

ESC 

Used  to  cancel  out  of  current  operation  (abort) 
and/or  to  go  back  one  level,  menu,  etc. 

HOME 

Used  to  go  to  the  top  of  a  list 

END 

Used  to  go  to  a  bottom  of  a  list 

Also,  it  is  extremely  important  to  make  the  program  as  "idiot-proof  as  possible.  (I  realize  that 
that  is  impossible  because  idiots  are  so  ingenious!)  This  means  that  as  you  develop  your 
code,  try  to  see  how  it  responds  when  the  user  hits  the  wrong  key.  As  we  get  further  along  in 
program  development,  I  will  be  trying  to  help  you  crash-proof  the  SURE  program  as  much  as 
possible. 
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From:  Robort  D.  MiOor  To:  John  Friodoon 


DHo:  2/173*  TTmo:  19:22:46 


P*flo  2d 8 


One  other  thought  of  a  general  nature.  When  you  want  to  take  a  break  from  programming, 
take  time  to  run  through  the  existing  SURE  program  so  that  you  know  how  it  works,  what  the 
user  is  expected  to  do,  and  what  the  reports  look  like.  Even  though  SURE  V  2  is  a  total 
rewrite  using  different  technology,  from  the  user's  point  of  view  they  don’t  want  to  have  to 
completely  relearn  the  whole  program.  So  to  the  extent  that  the  Lotus  version  of  SURE  is 
doing  something  right,  we  need  to  try  and  parallel  that  feature  as  much  as  possible  in  the 
compiled  version.  This  is  particularly  true  with  respect  to  reports. 

With  all  this  in  mind,  let’s  get  to  the  program!... 

I  like  the  way  you  have  the  main  screen  laid  out.  I  also  like  the  recent  addition  of  the 
explanation  for  the  menu  options.  We  spoke  earlier  about  colors,  and  you  said  you  preferred 
to  work  in  black  &  white  for  fear  of  losing  contrast  on  a  laptop's  liquid  crystal  screen.  It  may 
seem  insignificant,  but  I  think  aesthetics  are  very  important  (especially  when  "showing  off’ 
the  program  to  the  chain-of-commandl),  so  let’s  try  some  color  and  see  what  happens. 
Here’s  my  suggestion: 

IF  ISCOLORO 

SET  COLOR  TO  W+/B.B/W+ 

ENDIF 

If  this  combination  poses  a  problem  for  laptops,  we  can  fine-tune  later.  I've  got  a  laptop  here 
at  work  that  I  can  use  to  test  things  on. 

Just  out  of  curiosity,  what  is  the  purpose  of  the  memory  statistic  on  the  next  to  the  last  line? 

The  way  you  have  the  menus  set  up  is  just  fine.  As  we  get  further  down  the  road,  I  may  ask 
to  have  you  rearrange  the  order  of  the  major  menu  options  to  put  the  most  frequent  activities 
up  front.  I  will  be  gathering  input  from  people  most  familiar  with  the  current  SURE  program 
and  providing  feedback  at  a  later  date. 

Now  let’s  deal  with  the  "Unit"  menu  itself.  One  option  we  should  add  is  the  ability  to  Create  a 
Unit  from  scratch.  The  user  should  be  able  to  enter  their  own  SRC,  title  and  strength,  and 
then  select  LI  Ns  from  the  available  list. 

Now  I’m  going  to  work  with  the  "Create  Unit  from  SRC  Option".  First  of  all  (and  this  really 
applies  to  all  submenus,  not  just  this  one),  I  believe  we  need  to  incorporate  a  "Return  to 
Previous  Menu"  option  in  each  of  the  submenus  in  order  to  allow  the  user  to  back  up.  You 
may  wish  to  also  tie  in  the  ESC  key  to  perform  the  same  function.  The  first  two  options  on 
this  menu  can  actually  be  combined  into  one.  When  a  user  decides  to  Create  a  custom  unit 
from  an  SRC  they  can  be  prompted  to  enter  all  or  part  of  an  SRC  number.  If  they  leave  the 
field  blank  they  will  simply  be  sent  to  the  top  of  the  file.  Your  second  option  essentially  works 
this  way  already.  We  probably  should  use  the  word  "Custom"  or  some  synonym  thereof  to 
distinguish  a  user's  SRCs  from  those  provided  with  the  program.  Your  "DONE!”  option 
works  fine  if  the  user  wishes  to  move  forward.  But  if  they’ve  selected  a  unit  and  then  decide 
that  they  want  to  quit  the  operation,  the  DONE  will  save  the  selected  unit  whether  they  want  to 
or  not.  My  suggestion  is  to  remove  the  DONE  options  from  the  menu  and  to  incorporate  a 
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From:  Robert  D.  MilUr  To:  John  Friedson 


Dato:  2/17/34  Tino:  19:24:08 


Pafl»  3  ot  8 


"Do  you  wish  to  save  this  unit?"  question  into  the  actual  unit  creation  routine.  This  question 

could  be  followed  by  a  "Do  You  Wish  to  Create  Another  Custom  Unit?"  question.  The  idea 
here  is  to  limit  the  menus  to  a  series  of  options  which  are  INDEPENDENT  or  each  other,  if 
one  menu  option  is  dependent  upon  a  previous  one  (as  we'll  see  in  seme  of  the  other  menus), 
then  I  would  suggest  that  these  not  be  menu  options  at  all.  To  recap,  for  this  particular 
menu,  I  would  suggest  the  following  as  the  available  options: 

Create  Custom  Unit  from  SRC 
Create  Custom  Unit  from  Existing  Custom  Unit 
View  Existing  Custom  Units 
Return  to  Previous  Menu 

Further,  while  sitting  on  the  menu,  I  would  recommend  making  the  ESC  key  active  and,  if 
pressed,  perform  the  same  action  as  the  "Return  to  Previous  Menu"  option.  These 
suggestions  can  be  considered  applicable  to  most  of  the  other  menus  as  well. 

Now  I'm  pressing  the  "Create  Unit  from  SRC  (Find  SRC)"  option.  I  like  the  way  the  look-up 
works.  You  may  wish  to  expand  the  user  prompt  to  explain  that  they  may  enter  a!)  or  part  of 
an  existing  SRC  (or  none  at  all  to  go  to  the  top  of  the  list).  I  notice  that  when  I  repeat  this 
option,  the  previous  field  value  is  returned.  Suggest  you  blank  out  the  user  input  field  each 
time.  Also  suggest  that  if  a  user  enters  an  exact  match  there  is  not  need  to  throw  them  into 
the  browse  screen.  It  should  skip  that  step. 

Now  we  get  to  the  browse  screens.  As  we  discussed  on  the  phone,  and  as  I  generalized 
above,  it  is  imperative  that  we  use  the  ENTER  key  to  move  forward  and  the  ESC  key  to  back 
up.  I  wrote  some  sample  code  which  demonstrates  the  technique  that  we  discussed  last 
week. 

DEFINE  WINDOW  W_BROWSE  FROM  5,  10  TO  20,  70 
CLEAR  TYPEAHEAD 

ON  KEY  LABEL  CTRL-M  KEYBOARD  CHR(23) 

ON  KEY  LABEL  HOME  KEYBOARD  "{CTRL-PGUP}" 

ON  KEY  LABEL  END  KEYBOARD  "{CTRL-PGDN}" 

USE  C:\SURE20\SRCLIST 
ACTIVATE  WINDOW  W_BROWSE 

BROWSE  NOAPPEND  NOMENU  NOEDIT  NODELETE  COMPRESS  FREEZE  SRC 

ON  KEY  LABEL  CTRL-M 

ON  KEY  LABEL  HOME 

ON  KEY  LABEL  END 

DEACTIVATE  WINDOW  W_BROWSE 

IF  LASTKEYQ  =  27 

?  "YOU  PRESSED  ESC" 

ELSE 

DISP 

ENDIF 
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From:  Robert  D.  Minor  To:  John  Friedson 


Data:  317/94  Tima:  19:25:14 
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This  sample  remaps  the  ENTER  key  to  Ctrl-End,  the  HOME  key  to  Ctrl-PageUp  and  the 

END  key  to  Ctrl-PageDn.  It  also  sets  up  the  browse  window  so  that  the  cursor  is  "frozen"  in 
the  SRC  field.  You'll  also  note  that  I  wrote  a  trap  for  the  ESC  key  so  that  the  "quit  and  go 
back"  logic  can  be  incorporated. 

In  a  nutshell,  we  MUST  incorporate  this  logic  (or  something  similar  thereto)  into  ALL  browse 
screens. 

On  this  particular  browse  screen,  we  need  a  prompt  to  instruct  the  user  what  to  do. 

The  next  screen  (change  the  unit  name  and  strength)  has  me  a  little  confused,  it  appears 

that  you  are  using  the  unit  name  field  as  a  key  field  for  identifying  a  unit.  (I’m  basing  this  on 

the  paragraph  of  instruction  that  you  provide  with  the  prompt.)  The  key  field  for  any  unit 

(whether  standard  or  custom)  must  be  the  SRC  field.  The  user  should  be  prompted  to  enter  ' 

their  own  (unique)  SRC  number  to  distinguish  it  from  the  original.  (The  current  SURE 

program  allows  them  to  change  the  last  four  positions.)  The  number  should  be  checked  for 

uniqueness  (against  all  existing  and  custom  SRCs)  before  being  accepted.  The  Ctii-W 

prompt  is  not  really  necessary  on  this  screen.  However,  after  the  user  enters  their  SRC 

number  and  changes  the  title  and  strength  (as  appropriate),  they  should  probably  be  given 

the  option  to  change  Line  Item  information  within  the  unit.  (I  realize  that  you  can  do  it  by 

going  up  two  menus  and  then  back  down  again,  but  this  is  a  little  awkward.)  Once  the 

information  is  entered,  the  user  should  be  asked  if  they  want  to  save  the  custom  SRC.  If  they 

answer  yes,  then  the  records  are  saved.  Whether  they  answer  yes  or  no  to  the  first 

questions,  they  should  then  be  asked  whether  they  want  to  create  another  custom  SRC. 

In  your  current  menu,  when  you  press  DONE  (either  one),  the  "Please  wait..."  message 
appears  on  top  of  the  preceding  message. 

OK;  now  I'm  going  back  up  one  level  and  down  to  the  "Edit  Unit"  option  of  the  "Unit"  Menu. 

When  I  choose  the  "Select  Unit"  option,  the  browse  screen  only  has  the  unit  titles.  This 
should  include  the  SRC  and  the  strength.  Also,  as  already  discussed,  selection  should  be 
made  with  the  ENTER  key.  ESC  should  back  out  without  selecting  anything.  Once  you've 
selected  a  unit,  you  display  the  information  at  the  bottom  of  the  screen.  Suggest  the  include 
the  unit  strength  so  that  the  user  will  know  whether  he  wants  to  change  it  or  not. 

Actually,  the  header  information  from  the  SRC  (title,  strength,  and  echelon)  could  probably  be 
addressed  in  one  @  SAY...  GET  screen  with  a  READ  statement.  (Speaking  of  echelon,  I  r 

notice  that  you  are  providing  for  it  as  you  "edit"  a  unit,  but  you  haven't  provided  for  it  as  you 
create  a  unit.)  Of  course,  I'm  not  certain  at  this  point  what  your  intent  is  for  establishing  an 
echelon,  because  the  original  SRC  list  does  not  allow  for  them. 

1 

On  the  "Change  LIN  Quantities"  screen,  it  might  be  better  to  show  only  one  nomenclature 
and  then  have  a  check  mark  in  a  column  indicating  whether  it  is  an  ammo  user  or  a  POL 
user.  As  we  fine-tune  the  program,  we  might  want  to  come  up  with  a  master  LIN  file  which 
has  UN,  NOMEN,  POL  (T/F),  and  AMMO  (T/F)  as  field  names.  Then,  as  we  add  other  LIN- 
dependent  classes  of  supply,  we  can  add  fields  for  Class  IX  (T/F),  etc.  If  you  like,  I  can 
create  a  file  like  that  within  a  very  short  period  of  time. 
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Your  prompt  at  the  bottom  of  the  screen  should  be  changed  to  reflect  that  the  user  is 
expected  to  actually  change  quantities  on  the  screen  rather  than  "choose".  Also,  since  this 
type  of  screen  is  different  from  previous  browse  screens  (in  that  the  user  is  allowed  to 
change  information),  we  should  establish  a  "standard”  for  its  use.  Obviously,  ENTER  may 
used  to  enter  a  quantity,  so  it  could  pose  a  problem  if  used  to  exit  the  browse.  I  would  prefer 
not  to  rely  on  ESC  to  get  out  of  browse  because  of  what  I  said  earlier,  and  1  would  like  to 
reserve  HOME  and  END  to  go  to  the  top  and  bottom  of  the  file.  (As  you  can  see,  I'm 
brainstorming  as  I  write!)  Let’s  try  this...  expand  the  user  instruction  at  the  bottom  of  the 
screen  to  inform  them  that  they  can  use  the  arrow  keys  to  move  between  records,  changing 
data  along  the  way  as  they  wish.  When  they  press  ENTER,  have  them  exit  the  browse 
screen  (as  with  the  others  so  far),  but  keep  the  screen  on  the  CRT  and  prompt  them  whether 
they  are  done  making  changes.  If  they  answer  no,  then  loop  them  back  to  the  browse  screen. 
I  suspect  new  users  will  change  a  number  and  press  ENTER  (rather  than  an  arrow),  so  the 
prompt  will  give  them  a  chance  to  go  back  to  the  browse  without  having  to  go  through  another 
menu.  (By  the  way,  I  noticed  that  this  particular  browse  screen  does  not  have  append 
disabled,  so  the  use  can  "accidentally"  add  new  records.  We  need  to  disable  this  feature.) 

On  to  "Add  LIN  From  CASCOM  List".  Again,  if  I  can  provide  a  "master”  LIN  list,  we  can  do 
away  with  the  redundant  nomenclature  fields.  When  I  select  a  LIN,  I  am  getting  a  quantity 
from  somewhere  as  a  default.  This  needs  to  be  set  to  zero  as  the  user  enters  the  routine. 
Once  I  add  a  LIN,  I  get  a  "different"  browse  screen  with  my  new  LIN  added  at  the  bottom.  I 
don't  quite  understand  why  the  user  is  placed  in  a  browse  screen  at  this  point,  but  if  you  feel 
it  is  useful,  then  the  appearance  of  the  browse  screen  should  be  similar  to  that  used  for 
changing  LIN  quantities.  Also,  the  list  should  be  indexed  so  that  it  appears  in  LIN  sequence, 
rather  than  the  added  LINs  appearing  at  the  bottom. 

When  I  use  the  "Delete  LIN"  menu  option,  I  get  an  error  message: 

ALIAS  not  found:  CUNIT 

SELECT  14 

I  can  get  back  into  the  routine  by  telling  the  program  to  "Ignore"  the  error,  but  I  don't  think  it  is 
working  right  from  that  point  on.  I  can  see  your  prompt  to  confirm  deletion  of  a  LIN,  and  this 
looks  good.  You  may  want  to  show  the  quantity  of  the  LIN  along  with  the  other  information. 
Also,  you  may  want  to  handle  a  Yes/No  situation  with  a  prompt  such  as  "Delete  This  LIN 
(Y/N)7‘  and  force  the  user  to  commit  one  way  or  another.  Then  trap  the  input,  check  for  a  Y 
or  an  N,  and,  if  neither  is  pressed,  beep  and  go  back  to  the  prompt. 

On  to  the  "Delete  Unit"  option  from  the  "Unit"  menu.  As  before,  when  presenting  the  user 
with  a  list  of  units  to  choose  from,  be  sure  to  include  the  SRC  number  and  the  strength  as 
well. 

Now  I’m  going  to  go  to  the  next  "major"  menu  option:  "Task  Org".  First  of  all,  task 
organizations  are  not  limited  to  only  those  units  that  a  user  creates.  They  can  create  task 
organizations  out  of  "standard"  SRCs  as  well,  or  a  combination  of  both.  Secondly,  when 
assigning  units  to  a  task  organization,  the  user  must  be  able  to  indicate  a  quantity  associated 
with  each  unit.  Recommend  you  change  the  True/False  approach  to  a  quantity  field.  Look 
how  the  job  is  done  in  the  current  SURE  program.  Last,  we  want  to  be  able  to  include  a  task 
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force  within  a  task  force.  Therefore,  we  probably  should  ask  the  user  to  assign  a  task  force  a 
number  analogous  to  an  SRC. 

On  to  the  "Profiles"  menu  option.  First,  I  would  recommend  either  using  a  different  term  than 
"profile"  or  at  least  modifying  the  term  with  the  word  "operational11  in  order  to  distinguish  these 
profiles  from  equipment  usage  profiles.  Perhaps  "parameters"  or  "operational  parameters" 
would  be  useful. 

As  we  cycle  through  the  parameters,  let's  do  it  in  sequence  by  class  of  supply,  starting  with 

Classes  I,  II  (you  need  to  add  this),  III,  IV  (you  need  to  add  this  one),  V,  VI,  VIII,  and  water.  A 

You  may  want  to  make  your  original  entry  screen  (for  creating  a  new  profile)  consistent  with 

the  screen  you  use  for  editing  an  existing  profile.  As  the  user  selects  the  parameters,  they 

should  not  be  shown  all  the  corresponding  fields.  For  example,  when  selecting  rations,  just 

show  the  ration  types;  there  is  no  need  to  show  the  unit  of  measure  or  the  weight  per  ration.  > 

Another  example  would  be  for  Water:  ask  two  questions,  one  involving  organization  level 

(CO,  BTN,  BDE,  DIV,  Above  DIV)  and  another  about  climate  (Temperate,  Arctic,  Tropic, 

Arid).  Then  use  the  program  to  look  up  the  proper  factors  in  the  database.  The  user  should 
be  able  to  ESC  out  at  any  time,  and  they  should  be  allowed  to  prepare  an  "incomplete"  set  of 
parameters  (i.e.,  they  may  not  care  about  anything  but  Classes  III  and  V,  so  why  force  them 
to  define  other  parameters).  Then  when  the  reports  are  run,  and  if  they  select  a  class  of 
supply  for  which  no  parameters  have  been  defined,  they  will  be  prompted  to  complete  the 
parameters  at  that  time. 

On  to  the  "Orders"  section  of  the  main  menu...  As  I  create  an  order  I  am  asked  to  provide  the 
number  of  phases.  Then  I  am  allowed  to  define  the  phase  lengths,  but  I  am  permitted  to 
enter  phase  lengths  for  a  number  of  phases  greater  than  the  number  I  defined. 

As  I  look  through  this  part  of  the  program,  I  sense  that  you're  trying  to  make  the  order  creation 
process  more  complex  than  necessary.  I  would  propose  that  we  define  an  order  as  applying 
to  a  SINGLE  task  organization.  Then,  as  one  creates  an  order  they  are  prompted  to  identify 
the  task  organization  (or  single  SRC  if  they  like)  to  which  the  order  applies.  Then  as  phases 
are  defined,  they  can  assign  the  mission  profiles  (operational  parameters)  at  the  same  time 
they  assign  the  phase  length.  If  we  allow  for  the  flexibility  of  having  multiple  task 
organizations  within  a  single  order,  and  allow  for  each  organization  to  have  its  own  set  of 
mission  profiles,  then  I  think  we  are  opening  up  a  can  of  worms  we’ll  never  get  closed  again. 

Next  thing  the  user  would  want  would  be  variable  length  phases  for  each  of  his  task 

organizations,  and  separate  subtotals  on  the  report  for  each  of  the  task  organizations.  Which  ? 

almost  brings  us  back  to  what  they  would  get  if  they  defined  a  set  of  orders  for  each  separate 

task  organization  in  the  first  place!  Perhaps,  as  a  flexibility  measure,  we  can  allow  the  user  to 

copy  the  contents  of  an  existing  order  into  a  new  one  and  then  modify  those  parameters 

which  they  feel  must  change.  ^ 

On  to  the  reports! ! !  I  tried  running  through  the  orders-based  reports  and  selected  the  order 
that  you  defined.  I  don't  think  the  processing  is  going  on  quite  the  way  you  intended  it.  It 
seems  that  the  process  works  with  ALL  the  task  forces  in  the  file  as  opposed  to  just  those 
associated  with  the  order  selected. 
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With  respect  to  the  quick  SRC-based  reports  (which  is  essentially  what  the  current  SURE 
program  is  limited  to),  I  envision  the  user  being  able  to  select  from  a  list  of  units  including 
standard  (CASCOM)  SRCs  as  well  as  those  defined  by  the  user  as  a  task  organization. 

Then  I  would  prompt  the  user  to  select  which  classes  of  supply  for  which  they  want  reports. 
Following  this  would  be  a  query  asking  for  the  input  of  a  pre-defined  set  of  parameters  or  the 
option  to  create  a  set  "on  the  fly”.  The  program  would  then  check  the  parameters  against  the 
selected  classes  of  supply  for  the  report  and  prompt  the  user  to  complete  any  necessary 
parameters  that  have  been  left  out.  At  this  point,  the  report  would  be  run.  Since  your  existing 
report  menu  is  essentially  a  sequence  of  dependent  operations,  I  would  suggest,  based  on 
my  earlier  discussion,  that  a  menu  is  not  the  best  way  to  solicit  this  type  of  input.  Again, 
menus  should  be  limited  to  a  list  of  options  which  are  sequentially  independent. 

I  would  now  like  to  address  the  report  format.  (I  haven’t  had  a  chance  to  check  the  math  yet, 
so  I’ll  save  my  comments  on  that  until  another  time.)  I'm  afraid  we  must  have  the  reports 
done  in  a  TABULAR  format  to  the  maximum  extent  possible.  Realizing  that  all  the 
information  will  not  fit  on  a  screen  (widthwise),  i  would  suggest  creating  a  temporary  dBASE 
file  to  hold  the  report  information  and  let  the  user  "browse"  the  report  that  way.  Check  the 
current  SURE  reports  and  see  what  you  can  do  to  provide  your  information  in  a  similar 
format.  If  we  have  to  insist  that  a  user  have  an  Epson-compatible  dot  matrix  printer  (so  that 
the  reports  can  be  compressed  with  a  CHR$(15)),  then  so  be  it.  But  it  is  absolutely 
necessary  to  keep  the  reports  in  rows  and  columns  format. 

The  fuel  consumption  I'm  seeing  is  showing  up  in  whole  numbers.  We  need  this  shown  to 
two  decimal  places.  Also,  we  need  to  see  the  total  weight  and  total  cube  associated  with 
each  LIN.  I  noted  that  you  provide  a  summary  statistic  for  fuel  tank  capacity.  You  may  want 
to  include  this  on  a  line-by-line  basis  as  well.  (I'm  not  certain  how  useful  this  would  be,  but  it 
may  be  of  some  importance.)  We  also  need  to  show  Diesel  and  JP4  converted  into  JP8  as  a 
summary  statistic.  The  formula  is  JP8_Weight  =  Diesel_Weight  *  .095  +  JP4_Weight  * 

1 .05.  JP8  Gallons  is  just  the  straight  sum  of  diesel  and  JP4.  Same  with  JP8  Cube. 

Similarly,  your  ammo  reports  need  more  information,  such  as  individual  DODIC  weight  and 
cube  (with  decimal  places).  Also,  note  that  there  are,  in  many  cases,  many  DODICs  for  a 
given  LIN.  Your  report  appears  to  be  showing  only  one  DODIC  per  LIN.  This  is  a  one-to- 
many  relationship.  See  the  current  SURE  reports. 

One  feature  that  the  current  SURE  program  has  which  I  don't  see  in  your  program  is  the 
'  ability  to  create/modify  equipment  usage  profiles  for  use  with  Class  III  planning  factors. 

Also,  I  note  that  you  appear  to  be  headed  in  the  direction  of  a  "separate"  report  for  population- 
based  planning  factors.  I  know  this  is  the  way  the  current  SURE  program  does  it,  but  this  is 
)  one  area  where  I  would  like  the  new  program  to  differ.  As  I  said  earlier,  what  I  envision  is  the 

user  selecting  which  classes  of  supply  he  or  she  wishes  to  process  and  the  program  acting 
accordingly.  You  can  draw  the  population  from  the  SRC/task  force  information. 

Just  got  your  phone  call...  so  I'll  now  take  a  look  at  the  "system  reports"  that  you've  defined. 
The  CASCOM  SRCs  report  is  a  good  idea.  However,  the  more  that  I  think  about  it,  the  more 
I  think  we  ought  to  choose  a  different  term  than  "CASCOM"  SRCs.  Perhaps  "standard” 
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would  be  a  better  word  than  CASCOM.  Using  CASCOM  implies  that  we  develop  the  SRCs 
or  have  ownership  of  them.  As  these  reports  scroll  on  the  screen,  we  must  make  ESC  active 
to  back  out.  (Currently,  I  think  ESC  will  crash  the  program.)  The  SRC  with  LINs  report  is 
nice,  but  it  appears  to  run  very  slowly.  I  note  the  other  reports  are  not  available  yet.  The 
printer  defaults  is  an  option  under  both  "Reports"  and  "Utilities".  Suggest  we  put  it  under  just 
utilities.  As  we  get  further  along,  I  may  suggest  some  refinements  as  to  exactly  what  a  user 
can  specify  relative  to  the  printer. 

That  about  does  it.  I  know  this  will  be  a  lot  to  take  in  at  one  time,  but  I  hope  my  comments  will 
prove  useful.  As  you're  working  on  addressing  what  I  have  discussed,  I  will  be  getting  with 
the  functional  experts  within  the  Planning  Factors  Branch  to  discuss  your  previous  README 
files. 

Congratulations  on  the  new  addition  to  your  family.  I  look  forward  to  hearing  from  you  soon. 
Bob 


r 
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Minimum  Essential  Requirements 
for  Acceptable  SURE  V  2.0  Completion 


1.  SURE  V  1.x  Functionality.  The  new  SURE  program  must  at  least  be  able  to 
perform  the  same  functions  as  the  existing  program.  This  includes,  but  is  not  limited  to, 
the  following: 

A.  The  ability  to  modify  and  edit  an  SRC  (to  include  SRC  number,  title,  strength, 
and  LIN  composition)  and  save  the  modified  unit  as  a  "new"  SRC  that  is  treated 
as  an  equivalent  to  any  other  SRC. 

B.  The  ability  to  build  and  modify  a  task  force  which  consists  of  a  series  of  one 
to  many  SRCs  along  with  the  quantity  of  each  SRC. 

C.  The  ability  to  correctly  calculate  POL  and/or  ammunition  requirements  based 
on  an  "on  the  fly"  list  of  SRCs  and  quantities,  or  based  on  a  previously  designed 
task  force. 

D.  The  ability  to  correctly  calculate  population-based  requirements. 

2.  One  Pass  Operation.  The  user  should  be  able  to  select  for  which  classes  of  supply 
they  desire  a  report.  The  report  will  then  be  prepared  according  to  which  classes  were 
selected.  There  should  be  no  need  to  make  separate  passes  for  POL,  ammunition  and 
population-based  classes  of  supply. 

3.  SRC  Number  is  Key  Field.  The  use  of  the  unit  name  as  a  key  field  is 
unacceptable.  The  SRC  number  must  be  established  as  the  key  field.  As  the  user 
builds  their  own  units,  they  should  be  asked  to  assign  their  own  SRC.  Proper  program 
checks  should  be  made  to  preclude  duplication  of  SRC  numbers. 

4.  Ability  to  Back  Out  Using  ESC.  The  user  must  be  able  to  back  out  from  virtually 
all  operations  by  pressing  the  ESC  key.  Menus  must  be  constructed  to  allow  a  user  to 
return  to  the  previous  menu  and  the  ESC  key  must  be  made  active  to  perform  the  same 
function.  Hitting  ESC  at  any  browse  screen  should  return  the  user  to  the  previous  level 
without  making  a  selection. 

5.  Reports  Must  be  Accurate,  Complete  and  Tabular  and  Must  be  Viewable  on  the 
Screen.  The  reports  must  contain  the  same  elements  of  information  as  contained  in 
the  SURE  V  1.x  reports.  The  calculations  must  be  accurate.  The  numeric  information 
must  be  presented  in  a  tabular  fashion  for  readability's  sake.  The  user  must  be  able  to 
view  the  report  on  the  screen  similar  to  the  capability  found  in  SURE  1.x. 


6.  Debug,  Debug,  Debug.  While  it  is  impossible  to  catch  every  bug  in  a  program  thq 
size  of  SURE,  it  is  imperative  that  every  reasonable  attempt  be  made  to  ensure  that  the 
program  is  operating  according  to  design  (logical  bugs)  and  that  it  is  as  crashproof  as 
possible  (programming  bugs).  Many  of  the  bugs  pointed  out  in  the  comments  of  16-17 
Feb  94  still  exist,  plus  many  more  have  crept  in.  Thorough  testing  of  each  feature  is 
essential. 


Features  That  Are  Highly  Desirable 
for  an  Effective  SURE  V  2.0 


1.  Use  ENTER  to  Move  Forward.  In  lieu  of  Ctrl-W  or  other  non-intuitive  key  ^ 

sequences,  use  the  ENTER  key  to  indicate  positive  selection  and  the  desire  on  the  part 
of  the  user  to  move  on  to  the  next  step.  r 

2.  Task  Force  Within  a  Task  Force.  This  feature  has  been  mentioned  from  the 
outset  of  program  development.  Perhaps  the  most  effective  way  to  accomplish  this  is 
to  really  establish  two  separate  capabilities: 

A.  The  would  be  a  new  capability  to  build  a  custom  "unit"  based  on  one  to  many 
SRCs  (with  an  appropriate  quantity  of  each).  This  unit  would  be  assigned  its 
own  unique  SRC  number  and  would  be  treated  analogous  to  any  other  SRC. 

This  way,  a  user  could  construct  a  battalion  from  companies,  a  brigade  from 
battalions,  a  division  from  brigades,  etc. 

B.  The  capability  to  build  a  "task  force"  consisting  of  one  to  many  SRCs  (with  an 
appropriate  quantity  of  each).  This  capability  is  already  being  programmed. 

By  combining  the  two  capabilities,  the  user  can  effectively  create  a  task  force  within  a 
task  force. 

3.  Restructure  Menus.  The  program  has  gotten  so  complex  that  it  is  difficult  for  a 

user  to  know  what  to  do  first  when  they  enter  the  program.  In  addition,  many  of  the  ' 

menu  options  are  sequentially  dependent,  a  feature  which  is  not  desired.  Sequential 
steps  should  be  handled  through  program  operations,  not  menu  options.  When  a  user 
starts  SURE,  they  really  only  want  to  do  one  of  two  things:  run  a  report  or  perform 
some  sort  of  file  maintenance.  A  file  maintenance  sub-menu  could  then  contain  the  * 

categories  available  for  modification,  such  as:  units,  task  forces,  supply  usage 
parameters,  equipment  usage  profiles,  etc.  Any  scenario  building  capability  would  also 
logically  fall  within  the  file  maintenance  area. 
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Features  That  Are  Desirable ,  but  Not  Necessary 
for  an  Effective  SURE  V  2.0 


1 .  Scenario  Building.  While  it  is  recognized  that  a  great  deal  of  programming  effort  to 
date  has  been  spent  working  on  this  feature,  CASCOM  views  this  to  be  a  desirable 
capability  only  after  the  minimum  essential  capability  has  been  established.  It  may  be 
necessary  to  postpone  this  feature  until  a  future  release  of  SURE. 

2.  Context-sensitive  Help.  A  context-sensitive  help  system  will  be  of  great  benefit  to 
any  user.  However,  a  well-constructed  user  interface  with  descriptive  prompts  and 
adequate  documentation  is  considered  adequate  in  the  near  term.  Only  after  minimum 
essential  and  highly  desirable  features  are  implemented  should  time  of  any 
consequence  be  spent  on  implementing  context-sensitive  help. 
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CALCOTHE .  PRG .  73 

4  CALCPOL .  PRG .  77 

CLOSEALL.PRG .  82 

COMPRESS.  PRG .  83 

CREATEOR.  PRG .  84 

>  CREATEPR.  PRG .  97 

CREATESR.  PRG. .  103 

CREATETA.  PRG .  Ill 

CREATETC  .  PRG .  118 

CRECUSPR.  PRG .  123 

CUSTUNIT  .  PRG .  131 

DELORDE .  PRG .  139 

DELPROF.  PRG .  143 

DELTASK.  PRG . '  147 

DELUNIT  .  PRG .  151 

ECHELON.  PRG .  156 

EDITHELP  .  PRG .  159 

EDITORDE.  PRG .  160 

EDITPROF.  PRG .  180 

EDITTASK.  PRG .  188 

EDITUNIT .  PRG .  199 

ENDBROWS  .  PRG .  208 

HELP.  PRG .  209 

HELPNDX.  PRG .  210 

INSTORDE .  PRG . 211 

INSTPHLP .  PRG .  219 

INSTPROF.  PRG .  220 

INSTREPT .  PRG .  226 

INSTRUCT.  PRG . 228 

i  INSTSYSR.  PRG .  237 

INSTTASK.  PRG . 241 

INSTUNIT .  PRG . 247 

MEMOPAGR.  PRG . 253 

MEMVARS  .  PRG .  256 

ORDEREP1 .  PRG . ' .  257 

PRINTAMM.  PRG .  263 

PRINTOTH.  PRG .  321 
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PRINTPOL.  PRG . 296 

PRNSETUP  .  PRG . .  .  314 

PRNTHELP .  PRG .  3 15 

PRNTMEMO  .  PRG . 318 

REINDX  .  PRG . . . .  319 

RESTOREF.  PRG.  .  . . . . . . . . .......  323 

SETBROW2.  PRG.  . . 327 

SETBROWS .  PRG . .  32  8 

SETCON .  PRG .  32  9  > 

STARTHLP  .  PRG .  33O 

SURE. PRG . 331 

SYSREP  .  PRG . 341 

UNCOMPRE .  PRG .  367  > 


r 
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STORE  "  ”  TO  diskvar 

STORE  HOMEO  TO  homevar 

ACTIVATE  WINDOW  small 

@1,1  SAY  "Enter  drive  to  backup  to" 

@2,2  SAY  "or  Return  to  Quit:  " 

@  ROW ( ) ,  COL()  GET  diskvar 
READ 

IF  diskvar="  " 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (diskvar="  ") 

CLEAR 

@  1,2  SAY  "Please  wait,  backing  up..." 
diskvar=diskvar+" : \ " 
filevar=diskvar+"CSRCLIST. DBF" 

@3,2  SAY  "  " 

@3,2  SAY  filevar 

SET  MESSAGE  TO  "Backup  to  Floppy  Disk" 
COPY  FILE  csrclist.dbf  TO  Sfilevar 
f ilevar=diskvar+"CSRCLINQ . DBF" 

@3,2  SAY  " 

@  3,2  SAY  filevar 

COPY  FILE  csrclinq.dbf  TO  Sfilevar 
filevar=diskvar+"TASKORG. DBF" 

@3,2  SAY  " 

@  3,2  SAY  filevar 

COPY  FILE  taskorg.dbf  TO  Sfilevar 
filevar=diskvar+"ORDERTAS . DBF" 

@3,2  SAY  " 

@3,2  SAY  filevar 

COPY  FILE  ordertas.dbf  TO  &filevar 
filevar=diskvar+"PROFILES . DBF" 
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@3,2  SAY  filevar 

COPY  FILE  profiles. dbf  TO  sfilevar 
f ilevar=diskvar+"INTENSTY . DBF" 

@  3,2  SAY  " 

@  3,2  SAY  filevar 

COPY  FILE  intensty . dbf  TO  Sfilevar 
filevar=diskvar+"CPROFILE .DBF" 

@  3,2  SAY  " 

@3,2  SAY  filevar 

COPY  FILE  cprofile.dbf  TO  Sfilevar 
f ilevar=diskvar+"ORDERLST . DBF" 
@3,2  SAY  " 

@  3,2  SAY  filevar 

COPY  FILE  orderlst.dbf  TO  Sfilevar 
f i 1 e va  r=di skvar+"CSRCLIST. MDX " 
@3,2  SAY  " 

@3,2  SAY  filevar 

COPY  FILE  csrclist.mdx  TO  &filevar 
filevar=diskvar+"CSRCLINQ.MDX " 
@3,2  SAY  " 

@3,2  SAY  filevar 

COPY  FILE  csrclinq.mdx  TO  Sfilevar 
f i 1 e va  r =di s  k va  r + " TAS  KORG . MDX " 

@3,2  SAY  " 

@  3,2  SAY  filevar 

COPY  FILE  taskorg.mdx  TO  Sfilevar 
filevar=diskvar+"ORDERTAS .MDX" . 
@3,2  SAY  " 

@3,2  SAY  filevar 

COPY  FILE  ordertas.mdx  TO  sfilevar 
filevar=diskvar-F"  PROFILES  .MDX" 
@3,2  SAY  " 

@3,2  SAY  filevar 

COPY  FILE  profiles. mdx  TO  sfilevar 
filevar=diskvar+" INTENSTY. MDX" 
@3,2  SAY  " 

@3,2  SAY  filevar 

COPY  FILE  cprofile.mdx  TO  Sfilevar 
filevar=diskvar+"ORDERLST .MDX" 
@3,2  SAY  " 

@  3,2  SAY  filevar 

COPY  FILE  orderlst.mdx  TO  &filevar 

DEACTIVATE  WINDOW  small 

RETURN 


*:  EOF:  BACKDBF. PRG 
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Procedure  file: 


D :  \3URE\CALCAMMO .  PRG 


★ 


k 


Set  by:  GETORDER 

Calls:  STARTHLP . PRG 
:  AMMOCALC 


(procedure  in  EDITORDE. PRG) 
(procedure  in  PRINTAMM. PRG) 


Uses:  TASKORG . DBF 
:  CSRCLIST . DBF 
:  ORDERLST . DBF 
:  CPROFILE . DBF 
:  PROFILES. DBF 
:  AMMORATE . DBF 
:  POSTURE. DBF 
:  INTENSTY. DBF 
:  CSRCLINQ. DBF 
:  ORDERTAS . DBF 
:  DODIC . DBF 
:  AMMOEST . DBF 


MDX  files:  TASKORG. MDX 
:  CSRCLIST. MDX 
:  ORDERLST. MDX 
:  CPROFILE. MDX 
:  PRO FILES. MDX 
:  AMMORATE. MDX 
:•  INTENSTY. MDX 
:  CSRCLINQ. MDX 
:  ORDERTAS. MDX 
:  DODIC. MDX 
:  AMMOEST. MDX 


+ 

★ 


Documented  04/16/94  at  11:02 


SNAP!  version  5.00 


+  OPEN  FILES 
CLOSE  DATA 

STORE  PROGRAM ()  TO  progvar 

DO  starthlp 

SELECT  1 

USE  taskorg 

SELECT  2 

USE  csrclist 

SELECT  3 

USE  orderlst 

SELECT  4 

USE  cprofile 

SELECT  7 

USE  profiles 

SELECT  8 

USE  ammorate  ORDER  lin 

SELECT  17 

USE  posture 

SELECT  10 

USE  intensty 

SELECT  14 

USE  csrclinq 

SELECT  18 

USE  ordertas 
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SELECT  19 

USE  dodic  ORDER  dodic 

SELECT  21 
USE  ammoest 

*  SET  RELATIONS 
SELECT  19 

SET  ORDER  TO  dodic 
SELECT  8 

SET  ORDER  TO  dodic 

SET  RELATION  TO  dodic  INTO  dodic 

SELECT  8 

SET  ORDER  TO  lin  * 

*SELECT  14 

*SET  ORDER  TO  lin 

*SET  RELATION  TO  lin  INTO  ammorate 
SELECT  14 

SET  ORDER  TO  unitname  > 

SELECT  2 

SET  ORDER  TO  unitname 
SELECT  1 

SET  ORDER  TO  unitname 

SET  RELATION  TO  unitname  INTO  csrclinq,  unitname  INTO  csrclist 
SELECT  7 

SET  ORDER  TO  profile 
SELECT  4 

SET  ORDER  TO  profile 

SET  RELATION  TO  profile  INTO  profiles 
SELECT  4 

SET  ORDER  TO  profilenam 
SELECT  18 

SET  ORDER  TO  profilenam 

SET  RELATION  TO  profilenam  INTO  cprofile 
SELECT  3 

SET  ORDER  TO  NUMBER 
SEEK  numberva 
SELECT  21 
ZAP 

*  Procedure  to  calculate  AMMO  consumption 

*  Restrict  ordertas.dbf  to  records  in  this  Order 
SELECT  18 

*  Put  in  taskorgnam+str (phase)  order 
SET  FILTER  TO 

SET  FILTER  TO  NUMBER=orderlst->number 

GO  TOP  r 

SET  ORDER  TO  taskphase 
GO  TOP 

DO  WHILE  .NOT.  EOF() 

*  only  work  with  records  in  this  taskorder 

SELECT  1  * 

SET  FILTER  TO 

SET  FILTER  TO  taskorg->taskorgnam=ordertas->taskorgnam 
GO  TOP 

ACTIVATE  SCREEN 
@  17,2  CLEAR  TO  17,78 
@  17,2  SAY  taskorgnam 
ACTIVATE  WINDOW  process 

*  Do  one  unit  at  a  time 
DO  WHILE  .NOT.  EOF() 

*  Go  LIN  by  LIN  for  this  unit 
SELECT  14 
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SET  FILTER  TO 

SET  FILTER  TO  csrclinq->unitname=task-org->unitname 

GO  TOP 

DO  ammocalc 

SELECT  1 

SKIP 

IF  EOF ( ) 

EXIT 

ENDIF  ( EOF ( ) ) 

ENDDO  (.NOT.  EOF()) 

SELECT  18 
SKIP 
IF  EOF ( ) 

EXIT 

ENDIF  ( EOF ( ) ) 

ENDDO  (.NOT.  EOF()) 

*  ! 

*!  Procedure:  AMMOCALC 

*  ! 

*!  Called  by:  CALCAMMO . PRG 

* !  :  PRIN_PRO  (procedure  in  SYSREP.PRG) 

*  ! 

PROCEDURE  ammocalc 
ACTIVATE  SCREEN 
@  18,2  CLEAR  TO  18,78 
@  18,2  SAY  unitname 
ACTIVATE  WINDOW  process 
DO  WHILE  .NOT.  EOF ( ) 
ammovar=0 

*  If  ammo  user,  calculate  ammo 
SELECT  8 

SEEK  csrclinq->lin 
IF  FOUND () 

DO  WHILE  ammorate->lin=csrclinq->lin 
*IF  ammorate->dodic<>"  " 

SELECT  21 
APPEND  BLANK 
?  cprofile->posture 
DO  CASE 

CASE  cprofile->posture="Defense  First  Day" 
ammovar=csrclinq->quantity*ammorate->hvyld 
CASE  cprofile->posture="Defense  Succeeding  Days” 
ammovar=csrclinq->quantity*ammorate->hvysd 
CASE  cprofile->posture="Attack  First  Day" 

ammovar=csrclinq->quantity*ammorate->hvyla 
CASE  cprofile->posture="Attack  Succeeding  Days" 
ammovar=csrclinq->quantity*ammorate->hvysa 
CASE  cprofile->posture="Attack  Protracted  Period" 
ammovar=csrclinq->quantity*ammorate->hvyp 
ENDCASE 

*  Multiply  ammo  use  by  intensity  factor 
ammovar=ammovar*cprofile-> factor 

*  Multiply  ammo  use  by  strength  in  this  phase 
ammovar=ammovar*ordertas->strength/100 

*  Multiply  ammo  use  by  length  of  this  phase 

*  first  we  need  to  know  what  phase  we're  in 
phasevar="PHASE"+LTRIM ( STR ( ordertas->phase ) ) +"LEN " 

*  then  multiply  by  days  in  this  phase 
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ACTIVATE  SCREEN 
8  16,26  CLEAR  TO  16,36- 

8  16,26  SAY  "Phase  "+LTRIM(STR(ordertas->phase) ) 
ACTIVATE  WINDOW  process 
DO  CASE 

CASE  phasevar="PHASElLEN” 

ammovar=aromovar*orderlst->phasellen 
CASE  phase var="PHASE2LEN" 

ammovar=animovar*orderlst->phase21en 
CASE  phasevar="PHASE3LEN" 

ammovar=ammovar*orderlst->phase31en 
CASE  phasevar="PHASE4LEN" 

ammovar=ammovar*orderlst->phase41en 
CASE  phasevar="PHASE5LEN" 

ammovar=ammovar*orderlst->phase51en 
CASE  phasevar="PHASE6LEN" 

ammovar=ammovar*orderlst->phase61en 
CASE  phasevar="PHASE7LEN " 

ammovar=ammovar*orderlst->phase71en 
CASE  phasevar="PHASE8LEN" 

ammovar=ammovar*orderlst->phase81en 
CASE  phasevar="PHASE9LEN" 

ammovar=ammovar*orderlst->phase91en 
ENDCASE 
?  STR(ammovar) 

REPLACE  ammoest->calc_qty  WITH  ammovar 
REPLACE  ammoest->dodic  WITH  ammorate->dodic 
?  amraorate~>dodic 
??  "  "+ainmorate->dodic_nom 
REPLACE  ainmoest->cbt_loadqt  WITH 
csrclinq->quantity*ammorate->cbt_load; 

*ordertas->strength/100 
REPLACE  ainmoest->nuinber  WITH  orderlst->number 
REPLACE  ammoest->unitname  WITH  taskorg->unitname 
REPLACE  ammoest->src  WITH  taskorg->src 
REPLACE  ammoest->qty  WITH  taskorg->qty 
REPLACE  ammoest->taskorgnam  WITH  taskorg->taskorgnam 
REPLACE  airanoest->phase  WITH  ordertas->phase 
REPLACE  ammoest->lin  WITH  ammorate->lin 
REPLACE  ammoest->lin_nomen  WITH  ammorate->lin  nomen 
REPLACE  ammoest->quantity  WITH 
csrclinq->quantity*ordertas->strength/100 
SELECT  8 
SKIP 

ENDDO  (ammorate->lin=csrclinq->lin) 

ENDIF  (FOUNDO) 

SELECT  14 
SKIP 
IF  EOF { ) 

EXIT 

ENDIF  { EOF { ) ) 

ENDDO  {.NOT.  EOF()) 

*:  EOF:  CALCAMMO . PRG 
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Procedure  file:  D:\SURE\CALCOTHE.PRG 


Procs  &  Fncts:  OTHERCAL 

Set  by:  GETORDER 

Calls:  STARTHLP . PRG 
:  OTHERCAL 


{procedure  in  EDITORDE. PRG) 


(procedure  in  CALCOTHE . PRG) 


Uses 


TASKORG. DBF 
CSRCLIST . DBF 
ORDERLST • DBF 
CPROFILE. DBF 
PROFILES. DBF 
POSTURE. DBF 
INTENSTY. DBF 
CSRCLINQ.  DBF 
ORDERTAS . DBF 
MEDICAL. DBF 
WATER. DBF 
ECHELONS. DBF 
CL_OTHER . DBF 

TASKORG. MDX 
CSRCLIST.MDX 
ORDERLST. MDX 
CPROFILE. MDX 
PROFILES. MDX 
INTENSTY. MDX 
CSRCLINQ . MDX 
ORDERTAS. MDX 
MEDICAL. MDX 
WATER. MDX 
ECHELONS. MDX 
CL  OTHER. MDX 


Documented  04/16/94  at  11:02 


MDX  files 


SNAP!  version  5.00 

*  OPEN  FILES 
CLOSE  DATA 

STORE  PROGRAM ( )  TO  progvar 

DO  starthlp 

SELECT  1 

USE  taskorg 

SELECT  2 

USE  csrclist 

SELECT  3 

USE  orderlst 

SELECT  4 

USE  cprofile 

SELECT  7 

USE  profiles 

SELECT  17 

USE  posture 

SELECT  10 

USE  intensty 

SELECT  14 

USE  csrclinq 
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SELECT  18 
USE  ordertas 
SELECT  22 

USE  medical  ORDER  med_name 
SELECT  23 

USE  water  ORDER  water_name 
SELECT  25 

USE  echelons  ORDER  echelon 
SELECT  26 
USE  cl_other 

*  SET  RELATIONS 
SELECT  2 

SET  ORDER  TO  echelon 

SET  RELATION  TO  echelon  INTO  echelons 
SELECT  14 

SET  ORDER  TO  unitname 
SELECT  2 

SET  ORDER  TO  unitname 
SELECT  1 

SET  ORDER  TO  unitname 

SET  RELATION  TO  unitname  INTO  csrclinq,  unitname  INTO  csrclist 
SELECT  7 

SET  ORDER  TO  profile 
SELECT  4 

SET  ORDER  TO  water_name 

SET  RELATION  TO  water_name  INTO  water 

SET  ORDER  TO  med_name 

SET  RELATION  TO  med_name  INTO  medical 
SET  ORDER  TO  profile 

SET  RELATION  TO  profile  INTO  profiles 
SELECT  4 

SET  ORDER  TO  profilenam 
SELECT  18 

SET  ORDER  TO  profilenam 

SET  RELATION  TO  profilenam  INTO  cprofile 
SELECT  3 

SET  ORDER  TO  NUMBER 
SEEK  numberva 

*  Calculate  CL  I,  H20,  CL  IV,  CL  VIII 
SELECT  26 

ZAP 

*  Restrict  ordertas. dbf  to  records  in  this  Order 
SELECT  18 

SET  FILTER  TO 

SET  FILTER  TO  NUMBER=orderlst->number 
GO  TOP 

*  Put  in  taskorgnam+str (phase)  order 
SET  ORDER  TO  taskphase 

GO  TOP 

DO  WHILE  .NOT.  EOF() 

*  only  work  with  records  in  this  taskorder 
SELECT  1 

SET  FILTER  TO 

SET  FILTER  TO  taskorg->taskorgnam=ordertas->taskorgnam 
GO  TOP 

ACTIVATE  SCREEN 
0  17,2  CLEAR  TO  17,78 
@  17,2  SAY  taskorgnam 
ACTIVATE  WINDOW  process 

*  Do  one  unit  at  a  time 
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DO  WHILE  .NOT.  EOF() 

*  Go  LIN  by  LIN  for  this  unit 

SELECT  14 
SET  FILTER  TO 

SET  FILTER  TO  csrclinq->unitname=taskorg->unitname 
GO  TOP 
DO  othercal 
SELECT  1 

namevar=unitname 
DO  WHILE  .T. 

SKIP 

IF  EOF()  .OR.  namevarOunitname 
EXIT 

ENDIF  (EOF()  .OR.  namevarOunitname) 

ENDDO  ( . T . ) 

IF  EOF ( ) 

EXIT 

ENDIF  ( EOF ( ) ) 

ENDDO  (.NOT.  EOF ( ) ) 

SELECT  18 
SKIP 
IF  EOF ( ) 

EXIT 

ENDIF  ( EOF ( ) ) 

ENDDO  (.NOT.  EOF ( ) ) 

★  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

*  ! 

*!  Procedure:  OTHERCAL 

★  ! 

*!  Called  by:  CALCOTHE. PRG 

*  ! 

*i  **++*•*+*+******.+*+*******.*+*.*..*.*****+***.**+*.*.++***+*++***+***+*+***+** 

PROCEDURE  othercal 
ACTIVATE  SCREEN 
@  18,2  CLEAR  TO  18,78 
@  18,2  SAY  unitname 
ACTIVATE  WINDOW  process 
phaselnv=0 
SELECT  26 
APPEND  BLANK 

REPLACE  cl_other->number  WITH  orderlst->number 

REPLACE  cl_other->unitname  WITH  taskorg->unitname 

REPLACE  cl_other->src  WITH  taskorg->src 

REPLACE  cl_other->qty  WITH  taskorg->qty 

REPLACE  cl_other->taskorgnam  WITH  taskorg->taskorgnam 

REPLACE  cl_other->phase  WITH  ordertas->phase 

REPLACE  cl_other->prof ilenam  WITH  ordertas->profilenam 

*  Multiply  ammo  use  by  length  of  this  phase 

*  first  we  need  to  know  what  phase  we're  in 

phas evar=" PHASE "+LTRIM ( STR (order tas->phase) ) +"LEN" 

*  then  multiply  by  days  in  this  phase 
ACTIVATE  SCREEN 

@  16,26  CLEAR  TO  16,36 

@  16,26  SAY  "Phase  "+LTRIM(STR(ordertas->phase) ) 

ACTIVATE  WINDOW  process 
DO  CASE 

CASE  phasevar="PHASElLEN" 

phaselnv=orderlst->phasellen 
CASE  phase var="PHASE2LEN" 

phaselnv=orderlst->phase21en 
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CASE  phasevar="PHASE3LEN" 

phaselnv=orderlst->phase.31en 
CASE  phasevar="PHASE4LEN" 

phaselnv=orderlst->phase41en 
CASE  phasevar="PHASE5LEN" 

phaselnv=orderlst->phase51en 
CASE  phasevar="PHASE6LEN" 

phaselnv=orderlst->phase61en 
CASE  phasevar="PHASE7LEN" 

phaselnv=orderlst->phase71en 
CASE  phasevar="PHASE8LEN " 

phaselnv=orderlst->phase81en 
CASE  phasevar="PHASE9LEN" 

phaselnv=orderlst->phase91en 

ENDCASE 

ACTIVATE  WINDOW  process 

*  Calculate  Class  I 

*  Strenth  for  Rations 

*  Numeric  strength 

REPLACE  cl_other->strength  WITH  csrclist->strength*ordertas->strength/ 100 
?  "Numeric  Strength:  "+STR ( cl_other->strength) 

*  Class  I 

REPLACE  cl_other->cl_i_qty  WITH 

csrclist->strength*phaselnv*ordertas->strength/100 

*  Gallons  of  water 

REPLACE  cl_other->h2o_qty  WITH  csrclist->strength*phaselnv*water->gal_man_da* ; 

ordertas->strength/100 
?  "Gallons  H20:  "+STR(cl_other->h2o_qty> 

*  Class  IV  barrier 

REPLACE  cl_other->cl_ivbqty  WITH 

csrclist->strength*phaselnv*4*ordertas->strength/100 
?  "Barrier  Material:  "+STR (cl_other->cl_ivbqty) 

REPLACE  cl_other->cl_ivcqty  WITH 

csrclist->strength*phaselnv*4 . 5*ordertas->strength/100 
?  "Construction  Material:  "+STR ( cl_other->cl_ivcqty) 

REPLACE  cl_other->cl_viii_qt  WITH 
csrclist->strength*phaselnv*medical->plan_fact 
?  "Class  VIII:  "+STR (cl_other->cl_viii_qt) 

ACTIVATE  SCREEN 

*:  EOF:  CALCOTHE. PRG 


r 


y 


76 


D: \SURE\CALCPOL .  PRG 

GETORDER  (procedure  in  EDITORDE . PRG) 

STARTHLP . PRG 

POLCALC  (procedure  in  PRINTPOL. PRG) 

TASKORG . DBF 
CSRCLIST. DBF 
ORDERLST . DBF 
CPROFILE . DBF 
PROFILES. DBF 
POLRATE. DBF 
POSTURE. DBF 
INTENSTY . DBF 
POLWGT . DBF 
CSRCLINQ. DBF 
ORDERTAS  .  DBF 
POLEST . DBF 

TASKORG. MDX 
CSRCLI ST . MDX 
ORDERLST.  MDX 
CPROFILE. MDX 
PROFILES. MDX 
POLRATE. MDX 
INTENSTY. MDX 
POLWGT. MDX 
CSRCLINQ. MDX 
ORDERTAS. MDX 
POLEST. MDX 

04/16/94  at  11:02  SNAP!  version  5.00 

*  OPEN  FILES 
CLOSE  DATA 
DO  starthlp 
SELECT  1 
USE  taskorg 
SELECT  2 
USE  csrclist 
*  SELECT  3 

USE  orderlst 
SELECT  4 
USE  cprofile 
SELECT  7 

^  USE  profiles 

SELECT  9 
USE  polrate 
SELECT  17 
USE  posture 
SELECT  10 
USE  intensty 
SELECT  12 

USE  polwgt  ORDER  pol_type 
SELECT  14 
USE  csrclinq 
SELECT  18 


Procedure  file: 

Set  by: 
Calls : 

Uses 


MDX  files 


Documented 
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USE  ordertas 
SELECT  20 
USE  polest 
*  SET  RELATIONS 
SELECT  12 

SET  ORDER  TO  pol_type 
SELECT  9 

SET  ORDER  TO  pol  type 

SET  RELATION  TO  pol_type  INTO  polwgt 

SELECT  9 

SET  ORDER  TO  lin 

SELECT  14  ^ 

SET  ORDER  TO  lin 

SET  RELATION  TO  lin  INTO  polrate 
SELECT  14 

SET  ORDER  TO  unitname 

SELECT  2  V 

SET  ORDER  TO  unitname 
SELECT  1 

SET  ORDER  TO  unitname 

SET  RELATION  TO  unitname  INTO  csrclinq,  unitname  INTO  csrclist 
SELECT  7 

SET  ORDER  TO  profile 
SELECT  4 

SET  ORDER  TO  profile 

SET  RELATION  TO  profile  INTO  profiles 
SELECT  4 

SET  ORDER  TO  profilenam 
SELECT  18 

SET  ORDER  TO  profilenam 

SET  RELATION  TO  profilenam  INTO  cprofile 
SELECT  12 

SET  ORDER  TO  pol_type 
SELECT  9 

SET  ORDER  TO  pol  type 

SET  RELATION  TO  pol_type  INTO  polwgt 

SET  ORDER  TO  lin 

SELECT  3 

SET  ORDER  TO  NUMBER 
SEEK  numberva 
SELECT  20 
ZAP 

*  Procedure  to  calculate  POL  consumption 

*  Restrict  ordertas. dbf  to  records  in  this  Order  9 

SELECT  18 

SET  FILTER  TO 

SET  FILTER  TO  NUMBER=orderlst->number 
GO  TOP 

*  Put  in  taskorgnam+str (phase)  order  V 

SET  ORDER  TO  taskphase 

GO  TOP 

DO  WHILE  .NOT.  EOF() 

*  only  work  with  records  in  this  taskorder 

SELECT  1 

SET  FILTER  TO 

SET  FILTER  TO  taskorg->taskorgnam=ordertas->taskorgnam 
GO  TOP 

ACTIVATE  SCREEN 
@  17,2  CLEAR  TO  17,78 
@  17,2  SAY  taskorgnam 
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ACTIVATE  WINDOW  process 
*  Do  one  unit  at  a  time 
DO  WHILE  .NOT.  EOF() 

*  Go  LIN  by  LIN  for  this  unit 
SELECT  14 
SET  FILTER  TO 

SET  FILTER  TO  csrclinq->unitname=taskorg->unitname 

GO  TOP 

DO  polcalc 

SELECT  1 

SKIP 

IF  EOF ( ) 

EXIT 

ENDIF  (EOF { ) ) 

ENDDO  (.NOT.  EOF{)) 

SELECT  18 
SKIP 
IF  EOF ( ) 

EXIT 

ENDIF  ( EOF ( ) ) 

ENDDO  ( . NOT .  EOF ( ) ) 

* !  ' 

*!  Procedure:  POLCALC 

* ! 

*!  Called  by:  CALCPOL.PRG 

*j  : 'PRIN_PRO  (procedure  in  SYSREP.PRG) 

*t********  +  *******+*  +  ***  +  *  +  +++*+++*++  +  *  +  *+++*++**  +  +  +  +  **  +  +  *-H'*  +  +  +  +  +  +  +  +  +  i, 

PROCEDURE  polcalc 
ACTIVATE  SCREEN 
@  18,2  CLEAR  TO  18,78 
@  18,2  SAY  unitname 
ACTIVATE  WINDOW  process 
DO  WHILE  .NOT.  EOF() 

*  If  fuel  user,  calculate  fuel 
IF  polrate->equip_cat<>"  " 

?  polrate->lin 

?  polrate->lin_nomen 

?  polrate->equip_cat 

polvar=0 

SELECT  20 

APPEND  BLANK 

DO  CASE 

CASE  polrate->equip  cat="AE" 

polvar=csrclinq->quantity*polrate->idle_avg*profiles->ae  hrs 
CASE  polrate->equip_cat="AV" 

polvar=csrclinq->quantity*polrate->idle_avg*profiles->av  hrs 
?  csrclinq->quantity 
?  polrate->idle_avg 
?  profiles->av_hrs 
CASE  polrate->equip_cat=''CE" 

polvar=csrclinq->quantity*polrate->idle_avg*profiles->ce  hrs 
CASE  polrate->equip_cat="GN" 

polvar=csrclinq->quantity*polrate->idle_avg*profiles->gn  hrs 
CASE  polrate->equip_cat="HG" 

polvar=csrclinq->quantity*polrate->idle_avg*profiles->hg  hrs 
CASE  polrate->equip_cat="MH"  ~  ~ 

polvar=csrclinq->quantity*polrate->idle_avg*profiles->mh  hrs 
CASE  polrate->equip  cat=HOV" 


79 


polvar=csrclinq->quantity*polrate->idle_avg*profiles->ov_hrs 
CASE  polrate->equip_cat="SG" 

polvar=csrclinq->quantity*polrate->idle_avg*prof iles->sg_hrs 
CASE  polrate->equip_cat="SV" 

polvar=csrclinq->quantity*polrate->idle_avg*profiles->sv_hrs 
CASE  polrate->equip_cat="WV" 

polvar=csrclinq->quantity*polrate->idle_avg*profiles->wv_kms 
CASE  polrate->equip_cat="TV" 

polvar=csrclinq->quantity*polrate->idle_avg*profiles->tv_ti_hrs 
polvar=polvar+csrclinq->quantity*polrate->cc*profiles->tv_cc_hrs 
polvar=polvar+csrclinq->quantity*polrate->sr*profiles->tv_s r_hrs 
ENDCASE  "  ’  * 

*  multiply  pol  consumption  by  phase  length 

*  first  we  need  to  know  what  phase  we're  in 
phasevar=”PHASE"+LTRIM ( STR (ordertas->phase) } +"LEN" 

*  then  multiply  by  days  in  this  phase 

ACTIVATE  SCREEN  V 

@  16,26  CLEAR  TO  16,36 

@  16,26  SAY  "Phase  "+LTRIM ( STR (ordertas->phase) ) 

ACTIVATE  WINDOW  process 
DO  CASE 

CASE  phasevar="PHASElLEN " 

.  polvar=polvar*orderlst->phasellen 
CASE  phas e va r= " PHAS E2 LEN " 

polvar=polvar*orderlst->phase21en 
CASE  phase var="PHASE3LEN" 

polvar=polvar*orderlst->phase31en 
CASE  phasevar="PHASE4LEN" 

polvar=polvar*orderlst->phase41en 
CASE  phaseva r="PHASE5LEN" 

polvar=polvar*orderlst->phase51en 
CASE  phasevar= "PHASE6LEN " 

polvar=polvar*orderlst->phase61en 
CASE  phasevar="PHASE7LEN" 

polvar=polvar*orderlst->phase71en 
CASE  phasevar="PHASE8LEN” 

polvar=polvar*orderlst->phase81en 
CASE  phasevar="PHASE9LEN" 

polvar=polvar*orderlst->phase91en 

ENDCASE 

*  now  multiply  by  strength  of  this  task  force  this  phase 
pol var=polvar* order tas->strength/ 100 

*  put  relavent  data  in  polest  database 

REPLACE  polest->pol_type  WITH  polrate->pol_type  f * 

REPLACE  polest->number  WITH  orderlst->number 

REPLACE  polest->unitname  WITH  taskorg->unitname 

REPLACE  polest->src  WITH  taskorg->src 

REPLACE  polest->qty  WITH  taskorg->qty 

REPLACE  polest->taskorgnam  WITH  taskorg->taskorgnam  V 

REPLACE  polest->phase  WITH  ordertas->phase 

REPLACE  polest->lin  WITH  polrate->lin 

REPLACE  polest->equip_cat  WITH  polrate->equip_cat 

REPLACE  polest->lbs_gal  WITH  polwgt->lbs_gal 

REPLACE  polest->lin_nomen  WITH  polrate->lin_nomen 

*  Calculate  fuel  tank  capacity  for  this  lin  at  this  phase  and  strength 
REPLACE  polest->ft_cap  WITH 

polrate->ft_cap*csrclinq->quantity*ordertas->strength/100 

REPLACE  polest->quantity  WITH  csrclinq->quantity*ordertas->strength/100 
?  STR(polvar) 

REPLACE  polest->pol_qty  WITH  polvar 
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ENDIF  (polrate->equip  cato"  ") 
SELECT  14 
SKIP 
IF  EOF  (  ) 

EXIT 

ENDIF  ( EOF ( ) ) 

ENDDO  (.NOT.  EOFO) 

*:  EOF:  CALCPOL. PRG 
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Jr 

Jr 

Jr 

★ 

Jr 

Jr 

J" 

Jr 


*JrJrJrJrJr*JrJrJrJrJrJrJ-JrJr*JrJ-Jr*J-J-Jr*Jr**JrJ-JrJr  +  Jr*JrJrJrJ'JrJ-JrJrJ-JrJrJrJr*JrJrJ-JrJrJr*J-J-J-Jr*JrJ'JrJ-  +  J-JrJr 

Program:  D:\SURE\CLOSEALL.PRG 


Called  by:  QUITJPRO 
Documented  04/16/94  at  11:02 

JrJ’JtJkrJrJrJr‘J,JrJt-JrJPJ'-J,JrJ'JrJrJrJrJrJ-'JrJ-Jr:*'JrJrJ-J-Jk-  k  k  k  k 


(procedure  in  SURE.PRG) 

SNAP!  version  5.00 

JrJ-J,JrJrJrJrJrJrJrJrJ'JrJrJ-J-JrJ--J'Jr  +  J-JrJ'ir*JrJ:JrJrJrJrJr 


*closeall .prg 
DEACTIVATE  MENU 
CLOSE  ALL 
CLEAR 
QUIT 

+:  EOF:  CLOSEALL . PRG 


■T 


0 
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J* 


■k 

■k 

•k 

k 

•k 

■k 

•k 

k 


Program:  D:\SURE\COMPRESS.PRG 
Called  by:  UTIL_PRO  (procedure  in  SURE.PRG) 

Memory  Files:  VARIABLE. MEM 

Documented  04/16/94  at  11:02  SNAP!  version  5.00 

•kk-k-k-k-kk’kk-k-k-kkk-k-kk-kk-k-k-kk-kkk-k-kkk-k-k-k-k-k-kk-k-k-kkkkkk-kkk-k-kk-kkk-k-kk-kkk-kkkkkk-kkk 


STORE  SPACE (10)  TO  vprintva 
ACTIVATE  WINDOW  small 

@1,1  SAY  "Select  printer  type  with  SPACE" 

@2,1  SAY  "and  RETURN  to  select." 

@  3,1  GET  vprintva; 

PICTURE  "@M  Dot  Matrix, Laser , DeskJet, Do  not  set!"; 

MESSAGE  "Dot  Matrix  for  Epson/IBM  compatibles.  Laser  for  HP  Laser  Printers" 
READ 
DO  CASE 

CASE  vprintva="Dot  Matrix" 

???  CHR ( 27 ) +CHR ( 15 ) 

CASE  vprintva="Laser" 

???  CHR (27 ) +"@100" 

???  CHR ( 27 ) +" ( 8U" 

???  CHR (27) +" ( s0pl6 . 66h8 . 5v0s0b0T" 

_PEJECT= "AFTER" 

CASE  vprintva="DeskJet" 

???  CHR (27 ) +" ( sl6 . 67hl2V" 

ENDCASE 

SAVE  TO  variable  ALL  LIKE  v* 

DEACTIVATE  WINDOW  small 
RETURN 


*:  EOF:  COMPRESS. PRG 
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Procedure  file:  D:\SURE\CREATEOR.PRG 


Procs  &  Fncts 


STARTOR 

TOMP_PRO 

ORDS_PRO 

CREATEO 

VIEWORDE 

ASSIGNTA 

ENDORDR 

DISPORD 

DISPORD2 

1PROALL 

1PROONE 

1PR01PRI 

PHASEBY 

VIEWTOP 

FINDPRO 

DISPTAS 


Set  by:  ORDE  PRO 


Calls : 


STARTOR 
TOMP_PRO 
ORDS  PRO 


Documented  04/16/94  at  11:01 


(procedure  in  SURE.PRG) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 

SNAP!  version  5.00 


STORE 

STORE 


**************+****+*+***+*******+****+**+***********+**+++*+******** 

*  createor.prg 

STORE  PROGRAM ()  TO  progvar 
STORE  0  TO  number va 
STORE  SPACE (8)  TO  pnumberv 
STORE  SPACE (50)  TO  namevar 
1  TO  statusvar 
0  TO  nextpop 
SET  PROCEDURE  TO  instorde 
DO  startor 

*  Popup  for  Mission  Profile/Task  Organization  assignment  choices 
DEFINE  POPUP  tomp_pop  FROM  1,3 

DEFINE  BAR  1  OF  tomp_pop  PROMPT  ; 

"Assign  one  Parameter  Set  to  all  Task  Organizations  and  Phases" 
DEFINE  BAR  2  OF  tomp_pop  PROMPT  ; 

Parameter  Set  to  one  Task  Organization  for  all  Phases" 

OF  tomp_pop  PROMPT  ; 

"Assign  a  Parameter  Set  to  all  Task  Organizations  for  a  single  Phase' 
DEFINE  BAR  4  OF  tomp_pop  PROMPT  ; 

"Assign  Parameter  Sets  to  a  Task  Organization  Phase  by  Phase" 

DEFINE  BAR  5  OF  tomp_pop  PROMPT  ; 

"View  this  Orders  Task  Organizations  and  Parameter  Sets  by  Phase" 
DEFINE  BAR  6  OF  tomp_pop  PROMPT  "Return  to  Previous  Menu" 

ON  SELECTION  POPUP  tomp_pop  DO  tomp_pro 
ON  BAR  1  OF  tomp_pop  DO  tomp  barl 
OF  tomp_pop  DO  tomp~bar2 
OF  tomp_pop  DO  tomp_bar3 
OF  tomp_pop  DO  tomp_bar4 
OF  tomp_pop  DO  tomp_bar5 
OF  tomp_pop  DO  tomp_bar6 
DEFINE  POPUP  ords_pop  FROM  1,23 
DEFINE  BAR  1  OF  ords_pop  PROMPT  "Create  Order" 
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"Assign  a 
DEFINE  BAR  3 


ON  BAR 
ON  BAR 
ON  BAR 
ON  BAR 
ON  BAR 


p 


> 


f 


DEFINE  BAR  2  OF  ords_pop  PROMPT  "View  Orders" 

DEFINE  BAR  3  OF  ords_pop  PROMPT  "Assign  Task  Organizations" 

DEFINE  BAR  4  OF  ords_pop  PROMPT  "Assign  Parameter  Sets  to  Task  Organization 
Phases " 

DEFINE  BAR  5  OF  ords_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  ords_pop  DO  ords_pro 
ON  BAR  1  OF  ords_pop  DO  ords_barl 

ON  BAR  2  OF  ords_pop  DO  ords_bar2 

ON  BAR  3  OF  ords_pop  DO  ords_bar3 

ON  BAR  4  OF  ords_pop  DO  ords_bar4 

ON  BAR  5  OF  ords_pop  DO  ords_bar5 

DO  WHILE  PROMPT () <>"Return  to  Main  Menu" 

ACTIVATE  POPUP  ords_pop 
IF  nextpop=l 

ACTIVATE  POPUP  tomp_pop 
nexttpop=0 

ACTIVATE  POPUP  ords_pop 
ENDIF  (nextpop=l) 

ENDDO  (PROMPT () <>"Return  to  Main  Menu") 

+J********************************************************************* 

*  ! 


★  t 

*  ! 

*  j 

*  ! 
*  ! 

*  j 

*  i 

*•  l 

*  ! 
★  1 
+  f 


Procedure:  ORDS_PRO 

Called  by:  CREATEOR. PRG 

Calls:  STARTOR 
:  CREATEO 
:  VIEWORDE 
:  ASSIGNTA 
:  ENDORDR 


(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 


PROCEDURE  ords_pro 
DO  CASE 
CASE  BAR ()=1 

IF  statusvar=2 


DO  startor 
ENDIF  (statusvar=2) 
DO  createo 
CASE  BAR ()=2 
DO  vieworde 


CASE  BAR ()=3 
DO  assignta 
CASE  BAR  ()=4 

IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  create  an  Order  first!" 
@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
CLEAR 
ELSE 


nextpop=l 
DEACTIVATE  POPUP 
ENDIF  (statusvar=l) 
CASE  BAR ()=5 
DO  endordr 
CASE  BAR ( ) =6 
DO  startor 
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ENDCASE 

*  CA.SE  BAP.  ()=1 
CLEAR 

*j*-  +  *-***  +  **  +  *******  +  *******  +  *  +  +  +  +  +  +  >> 


*  ! 


*  I 

★  I 

Procedure: 

CREATEO 

*  ! 

★  ! 

Called  by: 

ORDS_PRO 

*  ! 

Calls : 

DISPORD 

★  t 

*  ! 

*  t 

Uses : 

TEMP. DBF 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 


PROCEDURE  createo 
SELECT  3 

SET  ORDER  TO  NUMBER 
COPY  STRUCTURE  TO  temp 
SELECT  11 
USE  temp 
APPEND  BLANK 
DO  WHILE  .T. 

SET  CONFIRM  ON 
ACTIVATE  WINDOW  editor 
@1,1  SAY  "Order  No.  " 

@  1,13  GET  NUMBER  PICTURE  "XXXXXXXX" 

@  1,22  SAY  "Order  number  cannot  be  changed  later!" 

@3,1  SAY  "Order  Name:  " 

@  3,13  GET  name  PICTURE  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
@5,1  SAY  "Description:" 

@6,6  GET  descriptio  PICTURE 

" XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX " 

@  8,1  SAY  "Number  of  Phases:  " 

@  8,19  GET  phases  PICTURE  "9" 

@  10,1  SAY  "Phase  Lengths  (Days):" 

@  ROW ( ) , COL ( ) +3  SAY  "P-1" 

@  ROW ( ) , COL ( ) +1  GET  phasellen 
@  ROW ( ) , COL ( ) +3  SAY  "P-2" 

@  ROW ( ) , COL ( ) +1  GET  phase21en 
@  ROW ( ) , COL ( ) +3  SAY  "P-3" 

@  ROW ( ) , COL ( ) +1  GET  phase31en 
@  ROW ( ) , COL ( ) +3  SAY  "P-4 " 

@  ROW ( ) , COL ( ) +1  GET  phase41en 

@  12,1 

@  ROW (), COL()  SAY  "P-5" 

@  ROW ( ) , COL ( ) +1  GET  phase51en 
@  ROW ( ) , COL ( ) +3  SAY  "P-6" 

@  ROW ( ) , COL ( ) +1  GET  phaseSlen 
@  ROW ( ) , COL ( ) +3  SAY  "P-7" 

@  ROW (), COL ()+l  GET  phase71en 
@  ROW (), COL ()+3  SAY  "P-8" 

@  ROW (), COL ()+l  GET  phase81en 
@  ROW  (),  COL  0+3  SAY  "P-9" 

@  ROW (), COL ()+l  GET  phase91en 

@14,2  SAY  "No  quantity  calcuations  for  Phase  Lengths  of  Zero.  Ctrl-W  when 
Done" 

READ 

SET  CONFIRM  OFF 
DEACTIVATE  WINDOW  editor 
IF  NUMBER="  " 


* 


<* 


4 
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» 


p 


I* 


ACTIVATE  WINDOW  small 
?  CH'R(7) 

@  1,2  SAY  "No  Order  Number!" 

@2,2  SAY  "Order  NOT  Added!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

DELETE 

PACK 

SELECT  11 
USE 
CLEAR 
EXIT 

ENDIF  (NUMBER="  ") 

SELECT  3 

SEEK  temp->number 
IF  FOUND!) 

CLEAR 
SELECT  11 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

CLEAR 

STORE  "YES"  TO  yesnovar 

@1,2  SAY  "Order  Number  Duplicate!  Type" 
@  2,2  SAY  "YES  to  try  again...  " 

@  ROW (), COL()  GET  yesnovar 
READ 

IF  yesnovar="YES" 

DEACTIVATE  WINDOW  small 
ELSE 

DEACTIVATE  WINDOW  small 

DELETE 

PACK 

SELECT  11 
USE 
CLEAR 
EXIT 

ENDIF  ( yesnovar="YES " ) 

ELSE 

SELECT  11 
USE 

SELECT  3 

APPEND  FROM  temp 
SELECT  11 
USE  temp 
ZAP 

SELECT  11 
USE 

SELECT  3 


namevar=orderlst->name 

pnumberv=orderlst->number 

EXIT 

ENDIF  (FOUND!)) 

ENDDO  (.T.) 
statusvar=2 
DO  dispord 
KEYBOARD  " { DNARROW } " 

KEYBOARD  " ( DNARROW ) " 

*  CASE  BAR ()=2 
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★  1 

*  f 

*  ! 

Procedure : 

VIEWORDE 

+  | 

Called  by: 

ORDS  PRO 

*  ! 

ORDT  PRO 

*  ! 

★  J 

GETORDER 

★  f 

Calls : 

SETBROWS . PRG 

★  1 

% 

ENDBROWS .PRG 

★  ! 

l 

DISP0RD2 

*  ! 

★  f 

; 

DISP0RD3 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE . PRG) 
(procedure  in  EDITORDE. PRG) 


(procedure  in  CREATEOR. PRG) 
(procedure  in  ORDEREP1 . PRG) 


PROCEDURE  vieworde 
SELECT  3 

*  Make  sure  there  are  some  records  to  view 
IF  RECCOUNT ( ) =0 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "You  must  have  at" 

@  2,2  SAY  "least  one  Order!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 


DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (RECCOUNT ()=0) 

ACTIVATE  WINDOW  browser 
GO  TOP 

*  SET  MESSAGE  TO  "Choose  an  Order  to  View" 

DO  setbrows 

BROWSE  NOMENU  NOEDIT  NOAPPEND  NODELETE  FIELDS  NUMBER, name, '  descriptio  FREEZE 
name  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 

SET  CURSOR  OFF 

CLEAR 

DO  WHILE  LASTKEY ( ) <>23 
DO  dispord2 
IF  RECCOUNT ()=1 

@  23,30  SAY  "Crtl-W  when  Done" 

ELSE 

@  23,15  SAY  "Page-Up  or  Page-Down  to  View,  Ctrl-W  when  Done" 

ENDIF  (RECCOUNT  0=1) 

IF  LASTKEY ()=3 
SKIP 
IF  EOF ( ) 

GO  TOP 

ENDIF  (EOF ( ) ) 

ENDIF  (LASTKEY ()=3) 

IF  LASTKEY ()=18 
SKIP  -1 
IF  BOF ( ) 

GO  BOTTOM 
ENDIF  (BOF ( ) ) 

ENDIF  ( LASTKEY () =18) 

WAIT  "" 

ENDDO  ( LASTKEY  ()  023) 

SET  CURSOR  ON 
SET  MESSAGE  TO 


1 


\ 
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*  CASE  BAR  ()=3 

*  i 


+  ! 

★  I 

Procedure : 

ASSIGNTA 

★  f 

Called  by: 

ORDS  PRO 

(procedure 

in  CREATEOR. PRG) 

*  ! 

*  ! 

* 

ORDT_PRO 

(procedure 

in  EDITORDE. PRG) 

*  i 

Uses : 

TTEMP. DBF 

★  i 

★  r 

; 

TEMP. DBF 

+  I****************************.*.**************************************** 

PROCEDURE  assignta 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "You  must  create  an  Order  first!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  ( statusvar=l ) 

*  Select  Task  Organizations  for  this  Order 

*  Make  sure  order  has  1  or  more  phases 
SELECT  3 

IF  phases=0 

ACTIVATE  WINDOW  small 
?  CHR (7) 

@1,1  SAY  "Order  has  ZERO  phases, you  will  have  to" 

@2,1  SAY  "add  some  from  the  Edit  Order  Screen." 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (phases=0) 

STORE  phases  TO  phasevar 
SELECT  1 

*  Setbrows/Endbrows  not  used  here  for  obvious  reasons! 

SET  MESSAGE  TO  "Enter  Y  for  each  Task  Organization  in  this  Order.  Ctrl-W  when 
Done" 

ACTIVATE  WINDOW  browser 

BROWSE  NOAPPEND  NODELETE  NOMENU  FIELDS  changestat,  taskorgnam  FREEZE  changestat 
COMPRESS 

DEACTIVATE  WINDOW  browser 
COPY  TO  ttemp  FOR  changestat 
SELECT  18 

COPY  STRUCTURE  TO  temp 

*  Create  one  record  for  each  Task  Organization  for  each  Phase  of  the  Order 
SELECT  11 

USE  temp 

STORE  1  TO  countvar 

SET  MESSAGE  TO  "Please  wait,  working..." 

DO  WHILE  .T. 

APPEND  FROM  ttemp 

REPLACE  ALL  phase  WITH  countvar  FOR  phase=0 
countvar=countvar+l 
IF  countvar>phasevar 
EXIT 
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ENDIF  (countvar>phasevar) 

END DO  ( . T . ) 

REPLACE  ALL  NUMBER  WITH  orderlst->number 

*  Initialize  Task  Orgs  for  this  order  at  100  % 

REPLACE  ALL  strength  WITH  100 

SELECT  11 
USE 

SELECT  18 
APPEND  FROM  temp 
SELECT  1 

REPLACE  ALL  changestat  WITH  .F.  FOR  changestat 
SET  MESSAGE  TO 
KEYBOARD  " { DNARROW } " 

*  CASE  BAR ()=4 

*  ! 

*!  Procedure:  ENDORDR 

*  ! 

*!  Called  by:  ORDS_PRO  (procedure  in  CREATEOR. PRG) 

*!  :  ORDT_PRO  (procedure  in  EDITORDE . PRG) 


PROCEDURE  endordr 
SELECT  18 

SET  ORDER  TO  profilenam 
SEEK  ”  ” 

IF  FOUND () 

STORE  "YES"  TO  yesnovar 
ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,1  SAY  "You  have  not  assigned  profiles  to" 
@2,1  SAY  "all  units.  Cancel  exit?  " 

@  ROW ( ) , COL ( )  GET  yesnovar 
READ 


IF  yesnovar="YES" 

DEACTIVATE  WINDOW  small 
RETURN 
ELSE 


DEACTIVATE  WINDOW  small 
ENDIF  (yesnovar="YES") 

ENDIF  (FOUNDO) 

CLOSE  DATA 
DEACTIVATE  POPUP 
RETURN 

*!  **  +  **  +  ***********  +  *  +  +  +  +  +****  +  *  +  ***  +  *  +  *  +  *****  +  *  +  +  +  ****  +  *  +  **.lt>.1|r  +  +  Jr  +  +  +  +  + 


★  ! 

★  r 

Procedure: 

STARTOR 

★  j 

★  I 

Called  by: 

CREATEOR. PRG 

★  i 

EDITORDE. PRG 

*  ! 

ORDS_PRO 

*  ! 

ORDT  PRO 

*  ! 

★  » 

Calls: 

STARTHLP . PRG 

*  ! 

*  ! 

Uses : 

CPROFILE. DBF 

*  ! 

TASKORG. DBF 

★  j 

ORDERTAS . DBF 

★  1 

ORDERLST. DBF 

*  t 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 


-« 


A 
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*  ! 
*  ! 


» 


> 


/» 


MDX  files:  CPROFILE.MDX 
:  TASKORG. MDX 
:  ORDERTAS.MDX 
:  ORDERLST . MDX 

*  ! 

* [ **  +  ***  +  **  +  ****  +  ****  +  ***■***********  +  +  **•***-*•*  +  ***  +  +  +  ***■*■*  +  +  +  +  +  *  +  *  +  ■*■**** 

PROCEDURE  startor 

STORE  1  TO  statusvar 

DO  starthlp 

SELECT  4 

USE  cprofile 

SELECT  1 

USE  taskorg  ORDER  uniqueta 

SELECT  18 

USE  ordertas 

SELECT  3 

USE  orderlst 

★I+******************************************************************** 


★  ! 

★  f 

*  ! 

Procedure : 

DISPORD 

★  f 

*  ! 

★  t 

Called  by: 

CREATEO 

GETORDER 

(procedure 

(procedure 

in  CREATEOR. PRG) 
in  EDITORDE. PRG) 

+  I*****************************************#********.*********.****.*..*..*.*** 

PROCEDURE  dispord 

@  17,2  TO  17,78 

@  19,2  SAY  "Order  Number:  " 

@  ROW (), COL()  SAY  pnumberv 
@  21,2  SAY  "  Order  Name:  " 

@  ROW (), COL()  SAY  namevar 

★i********************************************************************* 


*  ! 

★  | 

★  ! 

Procedure: 

DISP0RD2 

★  1 

Called  by: 

VIEWORDE 

(procedure 

in 

CREATEOR. PRG) 

★  i 

ORDT  PRO 

(procedure 

in 

EDITORDE. PRG) 

*  f 

*  t 

GETORDER 

(procedure 

in 

EDITORDE. PRG) 

+  ;**  +  ***  +  ****■*•***  +  **  +  *  +  *  +  ******  +  ***  +  ***  +  **  +  +  ***.*.*  +  *******  +  +  +  **  +  .*.  +  *.*.**** 
PROCEDURE  dispord2 
@  1,2  SAY  "Order  Number:  " 

@  ROW ( )  ,  COL ( )  SAY  NUMBER 
@2,2  SAY  "  Order  Name:  " 

@  ROW (), COLO  SAY  name 
@  3,2  SAY  "Description:  " 

@  ROW () ,  COLO  SAY  descriptio 
@  4,2  SAY  "Number  of  Phases:  " 

@  ROW  ( )  ,  COLO  SAY  LTRIM  (STR  (phases )  ) 

★  ■A:**************************-**************'****** 


*  Popup  for  Mission  Profile/Task  Organization  assignment  choices 

*  BAR  1  OF  Tomp_pop  PROMPT  "Assign  one  Profile  to  all  Task  Organizations  and 
Phases" 

*  BAR  2  OF  Tomp_pop  PROMPT  "Assign  one  Profile  to  one  Task  Organization  for  all 
Phases" 

*  BAR  3  OF  Tomp _pop  PROMPT  "Assign  one  Profile  to  all  Task  Organizations  for  a 
single  Phase" 

*  BAR  4  OF  Tomp _pop  PROMPT  "Assign  Profiles  to  a  Task  Organization  Phase  by 
Phase" 

*  BAR  5  OF  Tomp_pop  PROMPT  "View  Task  Organizations  and  Profiles  by  Phase" 
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"Return  to  Previous  Menu" 


*  BAR  6  OF  Tomp_pop  PROMPT 

*  Procedures  for  tomp  pop 


★  I 

*  ! 

*  ! 

Procedure : 

TOMP_PRO 

*  j 

Called  by: 

CREATEOR 

★  i 

*  i 

; 

EDITORDE 

*  ! 

Calls : 

1 PRO ALL 

*  ! 

1PR00NE 

★  t 

1PR01PRI 

*  ! 

PHASEBY 

★  j 
+  t 

VIEWTOP 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 


★  1  *  +  **-*r**  +  +  +  ***  +  **T!r  +  *****.t.A.****  +  ***ljr********.A.*lt*lfc.*.A.-A.*  +  lk.lt  +  lt  +  +  *  +  lt++  +  lt  +  ^.^  + 

PROCEDURE  tomp_pro 
DO  CASE 
CASE  BAR ()=1 
DO  lproall 
CASE  BAR ()=2 
DO  lproone 
CASE  BAR()=!B 
DO  lprolpri 
CASE  BAR ()=4 
DO  phaseby 
CASE  BAR  ()  =5 
DO  viewtop 
CASE  BAR ()=6 

DEACTIVATE  POPUP 
ENDCASE 
♦CASE  BAR ()=1 


★  f 

★  ] 

*  ! 

Procedure: 

1PR0ALL 

*  ! 

★  ! 

Called  by: 

TOMP  PRO 

(procedure  in 

CREATEOR. PRG) 

*  ! 

★  \ 

Calls: 

FINDPRO 

(procedure  in 

CREATEOR. PRG) 

*\+  +  +  +  +  +  +  +  -*'  +  +  **  +  -k-k-tr-k*-k-i'-k  +  -k*-k-k  +  ir  +  +  +  -i'-k  +  -k-tr  +  +  -k-lr-k±-ir  +  it  +  -ifir  +  *  +  -h-k-tr  +  -k  +  -k+-k  +  -lrir  +  -tr+  +  i, 

PROCEDURE  lproall 

SET  MESSAGE  TO  "Ctrl-W  to  Choose  Profile  for  all  Task  Organizations  and  Phases” 
DO  findpro 
SELECT  18 

REPLACE  ALL  profilenam  WITH  cprof ile->prof ilenam  FOR  ordertas->number=pnumberv 
CLEAR 

♦CASE  BAR  ()=2 

+  +  +  *  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 


★  I 

*  ! 

Procedure: 

1PR00NE 

*  ! 

★  \ 

Called  by: 

TOMP  PRO 

★  | 

*  ! 

Calls : 

SETBROWS . PRG 

★ i 

: 

ENDBROWS . PRG 

*  ! 

: 

FINDPRO 

★ ! 

PROCEDURE  lproone 

(procedure  in  CREATEOR. PRG) 


(procedure  in  CREATEOR. PRG) 
**+****++**+*+*+*+**++***+*+*++*+* 


* 


« 


0 
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*  Choose  Task  Organization 
SELECT  18 

SET  ORDER  TO  NUMBER 
SET  FILTER  TO  NUMBER=pnumberv 
GO  TOP 
DO  setbrows 

BROWSE  NOAPPEND  NODELETE  NOEDIT  NOMENU  FIELDS  taskorgnam  COMPRESS 
DO  endbrows 

STORE  taskorgnam  TO  namevar 

*  DO  findta 

*  Choose  profile 

*  SET  MESSAGE  TO  "Ctrl-W  to  Choose  Profile  for  this  Task  Organizations  for  all 
Phases" 

SET  FILTER  TO 
SET  ORDER  TO  taskorgnam 
DO  findpro 
J  CLEAR 

SELECT  18 

REPLACE  ALL  profilenam  WITH  cprofile->profilenam  FOR  ordertas->number=pnumberv; 

.AND.  taskorgnam=namevar 
SET  MESSAGE  TO 
CLEAR 

*CASE  BAR ()=3 

*  ! 

*!  Procedure:  1PR01PRI 

*  ! 

*!  Called  by:  TOMP  PRO  (procedure  in  CREATEOR. PRG) 

*  ! 

*!  Calls:  FINDPRO  (procedure  in  CREATEOR. PRG) 

*  ! 

+  t  **  +  ****■*•***  +  ******  +  **********  +  *****  +  ******  +  *****  +  *  +  **  +  ***  +  **  +  +  *****  +  * 
PROCEDURE  lprolpri 
SELECT  3 

STORE  0  TO  numbe2var 
STORE  phases  TO  numberva 

SET  MESSAGE  TO  "Ctrl-W  to  Choose  Profile  for  all  Task  Organizations  and  Phases" 
DO  findpro 

ACTIVATE  WINDOW  small 

@1,1  SAY  "Enter  Phase  Number  to  use  selected" 

@2,1  SAY  "Profile  for:  " 

@  ROW ( ) , COL ( )  GET  numbe2var  VALID  numbe2var<=numberva  .AND.  numbe2var>=0 ; 

ERROR  "Must  be  between  0  and  "+LTRIM (STR (numberva ))+" .  0  cancels." 

*  @  3,1  SAY  "There  are  "+LTRIM(STR(numbervar) ) +”  Phases  in  this  Order" 

READ 

IF  numbe2var=0 
CLEAR 
?  CHR ( 7 ) 

/*  @1,2  SAY  "No  Phase  selected,  action  cancelled!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (numbe2var=0) 

DEACTIVATE  WINDOW  small 
SELECT  18 

REPLACE  ALL  profilenam  WITH  cprofile->profilenam; 

FOR  ordertas->number=pnumberv  .AND.  phase=numbe2var 
CLEAR 
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*CAS£  BAR  ()=4 

*i  +  *  +  +  *  +  ****-*  +  **  +  ***  +  *******  +  **  +  **  +  ***  +  *+  **.***  +  ****  +  ****.ijk  +  5t  +  +  +  )k.  +  +  i.  +  +  ^Vr 
*  ! 

* !  Procedure:  PHASEBY 

★  f 

* •  Called  by:  TOMP  PRO  (procedure  in  CREATEOR. PRG) 

+  ! 


* !  Calls  :  VIEWTOP 

*!  :  FINDPRO 

*  ! 


(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 


*1*  +  ***  +  **  +  *  +  ******.  +  *  +  ****  +  **  +  ****.******.***********^**^^^^^.^^^^^^^.^^^^^. 
PROCEDURE  phaseby 
DO  viewtop 
DO  findpro 
SELECT  18 

REPLACE  profilenam  WITH  cprof ile->profilenam 

*D0  disptas 

*D0  dispprof 

SET  FILTER  TO 

*CASE  BAR ()=5 

*\******-tr***************-tr-tr-tr-kir*-k***-lr****-k******irir*ir****-lr***-k-k***-k*-kir-k-lr-)cir 


*  ! 

*  ! 

*  ! 

Procedure: 

VIEWTOP 

*  ! 

Called  by: 

TOMP  PRO 

*  ! 

*  ! 

- 

PHASEBY 

*  ! 

Calls : 

SETBROWS. PRG 

★  f 

★  r 

J 

ENDBROWS . PRG 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 


*  i  ***** 


PROCEDURE  viewtop 
SELECT  18 

*  Put  in  taskorgnam+str (phase)  order 
SET  ORDER  TO  taskphas 

SET  FILTER  TO  NUMBER=pnumberv 
GO  TOP 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  NOEDIT  NOAPPEND  NODELETE  NOMENU  FIELDS  phase,  profilenam,  taskorgnam 

DO  endbrows 

SET  FILTER  TO 

SET  ORDER  TO  taskorgnam 

DEACTIVATE  WINDOW  browser 

* !********************************************************************* 

*  t 


*!  Procedure:  DISPPROF 

*  I 

* !  Called  by:  NEWPROFI 

* !  :  VIEWPROF 

*!  :  SELEPROF 

* !  :  CHANGEAP 

* !  :  CHANGEAC 

*  !  :  CHANGEI 

*  :  CHANGEI F 

*  •'  :  CHANGECI 

*  !  :  CHANGEH2 

*!  :  CHANGEME 

*  !  :  SELECTPRO 

* •  :  FINDPRO 


(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 


in  CREATEPR. PRG) 
in  CREATEPR. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  DELPROF. PRG) 
in  CREATEOR. PRG) 
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v 


A 


it 


PROCEDURE  dispprof 
SELECT  4 

@12,1  SAY  "Profile  Name:” 

@12,17  SAY  profilenam  PICTURE  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
@13, 1  SAY  "Description:  " 

@13,17  SAY  profiledes  PICTURE 

" XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX " 

@14,1  SAY  "Area" 

@14,6  SAY  "Profile:" 

@14,17  SAY  profile  PICTURE  "XXXXXXXXXXXXXXX" 

@15,  1  SAY  "Intensity:" 

@15,17  SAY  INTENSITY  PICTURE  "XXXXXXXX" 

@15,27  SAY  "Factor" 

@15,35  SAY  factor  PICTURE  "999.99" 

@16,1  SAY  "Ammo  Consumption  Posture:  " 

@ROW ( ) , COL ( )  SAY  posture 

*1*****  +  ****  +  *****  +  **************  +  ***********  +  *  +  ***  +  ***  +  **  +  ****  +  +  *.**.*.** 


*  ! 

*  ! 

*  i 

Procedure : 

FINDPRO 

*  ! 

Called  by: 

1PR0ALL 

(procedure 

in 

CREATEOR. PRG) 

*  ! 

1PR00NE 

(procedure 

in 

CREATEOR. PRG) 

*  f 

1PR01PRI 

(procedure 

in 

CREATEOR. PRG) 

★  ! 

*  ! 

PHASEBY 

(procedure 

in 

CREATEOR. PRG) 

* ! 

Calls : 

SETBROWS. PRG 

*  ! 

ENDBROWS . PRG 

★  j 
+  f 

DISPPROF 

(procedure 

in 

CREATEPR. PRG) 

*! *+*****+***+*+*+*+****+***+*****+**•*******+********++***+*******+**** 
PROCEDURE  findpro 
SELECT  4 

ACTIVATE  WINDOW  browser 
GO  TOP 
DO  setbrows 

BROWSE  NOMENU  NOEDIT  NOAPPEND  NODELETE  ; 

FIELDS  prof ilenam, prof iledes  FREEZE  profilenam  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 

SET  CURSOR  OFF 

CLEAR 

DO  WHILE  LASTKEY ( ) <>23 
DO  dispprof 
IF  RECCOUNT ( ) =1 

@  23,30  SAY  "Crtl-W  when  Done" 

ELSE 

@  23,15  SAY  "Page-Up  or  Page-Down  to  View,  Ctrl-W  when  Done" 

END IF  (RECCOUNT ()=1) 

IF  LASTKEY ()=3 
SKIP 
IF  EOF ( ) 

GO  TOP 

ENDIF  ( EOF ( ) ) 

ENDIF  (LASTKEY ()=3) 

IF  LASTKEY ()=18 
SKIP  -1 
IF  BOF ( ) 

GO  BOTTOM 


END IF  ( BOF ( ) ) 

END IF  ( LASTKEY ( ) =18 ) 

WAIT 

ENDDO  ( LASTKEY () <>23 ) 

SET  CURSOR  ON 
SET  MESSAGE  TO 

+  1  *  +  *****  +  ********************  +  ***  +  +  *  +  *  +  ***  +  ********.  +  *  +  ^-n.*  +  *  +  v  +  +  4.i.*i.*  + 
*  ! 

*!  Procedure:  DISPTAS 

*  ! 

*l***********H******i**t*t*******t**liyr**ltiiHt4i4!lHJrittimttjr(.tt 

PROCEDURE  disptas 
@  17,2  TO  17,78 

@  21,2  SAY  "Task  Organization:  " 

@  ROW ( ) , COL ( )  SAY  namevar 


★  1 
*  ! 

★  f 

Procedure : 

FINDTA 

★  j 

Called  by: 

EDITTASK. PRG 

+  i 

COPT  PRO 

(procedure 

in  CREATETC. PRG) 

*  f 

EDIT  PRO 

(procedure 

in  EDITTASK. PRG) 

★  ! 

*  ! 

DELT_PRO 

(procedure 

in  DELTASK. PRG) 

*  ! 

Calls : 

SETBROWS. PRG 

*  j 

ENDBROWS . PRG 

★  j 

*  ! 

DISPTASK 

(procedure 

in  .CREATETA. PRG) 

*1**********+******+********+*+*********,*,^,*^^*****,^^^^^^^^^^^^^^^^^ 
PROCEDURE  findta 
SELECT  3 

STORE  NUMBER  TO  pnumberv 
SELECT  18 

*STORE  RECNO ( )  TO  recnovar 
SET  ORDER  TO  uniqueta 
SET  FILTER  TO  NUMBER=pnumberv 
GO  TOP 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  FIELDS  taskorgnam  NOMENU  NOEDIT  NOAPPEND  NODELETE  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 

STORE  taskorgnam  TO  namevar 

SET  FILTER  TO 

SET  ORDER  TO  NUMBER 

*GO  recnovar 

*DO  disptas 

*:  EOF:  CREATEOR. PRG 


* 


f 


V 
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Tl 
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Procedure  file:  D:\SURE\CREATEPR.PRG 


Procs  &  Fncts 


STARTPRO 

CREP_PRO 

NEWPROFI 

VIEWPROF 

ENDCREP 

DISPPROF 


Set  by:  PROF_PRO 

Calls:  STARTPRO 
:  CREP_PRO 

Documented  04/16/94  at  11:01 


(procedure  in  SURE.PRG) 

(procedure  in  CREATEPR. PRG) 
(procedure  in  CREATEPR. PRG) 

SNAP!  version  5.00 


*  createpro .prg 
CLEAR 

STORE  PROGRAM ()  TO  progvar 
SET  PROCEDURE  TO  instprof 
DO  startpro 

DEFINE  POPUP  crep_jpop  FROM  1,14 

DEFINE  BAR  1  OF  crep_pop  PROMPT  "Create  New  Mission  Parameter  Set" 

DEFINE  BAR  2  OF  crep^pop  PROMPT  "View  Mission  Parameter  Sets" 

DEFINE  BAR  3  OF  crep_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  crep_pop  DO  crep_j>ro 
ON  BAR  1  OF  crep_pop  DO  crep_barl 

ON  BAR  2  OF  crep_pop  DO  crep_bar2 

ON  BAR  3  OF  crep_pop  DO  crep_bar3 

DO  WHILE  PROMPT ()<>"Return  to  Main  Menu” 

ACTIVATE  POPUP  crep_pop 
ENDDO  (PROMPT ()<>"Return  to  Main  Menu") 

+  j  **  +  *****************  +  ************.*  +  *****************  +  *■*•*  +  ***  +  **  +  ***** 


★  1 
*  ! 

*  ! 

Procedure: 

CREP_PRO 

★  ! 

★  j 

Called  by: 

CREATEPR. PRG 

★  | 

Calls : 

NEWPROFI 

(procedure 

in 

CREATEPR. PRG) 

★  ! 

VIEWPROF 

(procedure 

in 

CREATEPR. PRG) 

*  ! 

★  f 

ENDCREP 

(procedure 

in 

CREATEPR. PRG) 

*[+*  +  *  +  *+*■*■***  +  ***********  +  +  *  +  **  +  *  +  *  +  *******  +  +  +  **  +  +  *  +  *  +  **  +  ******  +  **  +  *  +  * 
PROCEDURE  crep_pro 
DO  CASE 
CASE  BAR  ( ) =1 
DO  newprofi 
CASE  BAR ()=2 
DO  viewprof 
CASE  BAR ()=3 
DO  endcrep 
ENDCASE 

*  Procedures  for  CreP_pop 

*  CASE  BAR()  =  1 

*  f  *★-*■★*★-*•*■*•  +  -*■  *★*★**★★★★**•*•★★  +  *  ********  ★  ■*•*•*■■*■■*•  *  **-*★★★  **★★**★★*★★★★•*•*★■*•*** 

*  ! 

*!  Procedure:  NEWPROFI 

*  ! 
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Called  by:  CREP_PRO 


(procedure  in  CREATEPR. PRG) 


*  ! 

*  ! 

*!  Calls:  SETBROWS.PRG 

*!  :  ENDBROWS . PRG 

*!  :  DISPPROF  (procedure  in  CREATEPR. PRG) 

*  ! 

*  !  Uses:  TEMP. DBF 

*  ! 

*(****  +  **  +  +  ********  +  **  +  +  +  +  **  +  >.**  +  +  ****  +  ********  +  *  +  ***  +  **  +  *  +  ***•*■  +  +  ****  +  * 
PROCEDURE  newprofi 
SELECT  4 

COPY  STRUCTURE  TO  temp 

SELECT  11 

USE  temp 

APPEND  BLANK 

*SET  FORMAT  TO  addprofi 

KEYBOARD  CHR(22) 

SET  MESSAGE  TO 
CLEAR 

DO  WHILE  LASTKEY( ) <>23 

@11,60  SAY  "Parameter  Set  Names" 

@12,1  SAY  "  Set  Name:" 

@12,17  GET  profilenam  PICTURE  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

f 

MESSAGE  "This  cannot  be  modified  later!" 

@12,60  SAY  "are  permanent!" 

@13,1  SAY  "Description:  " 

@13,17  GET  profiledes  PICTURE 
" XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX " 

@14,1  SAY  "Area" 

@14,6  SAY  "Profile:" 

@14,17  SAY  profile  PICTURE  "XXXXXXXXXXXXXXX" 

@15,  1  SAY  "Intensity:" 

@15,17  SAY  INTENSITY  PICTURE  "XXXXXXXX" 

@15,27  SAY  "Factor:" 

@15,35  SAY  factor  PICTURE  "999.99" 

@16,1  SAY  "Ammo  Consumption  Posture:  " 

@ROW ( ) , COL ( )  SAY  posture 

@  21,19  SAY  "Enter  Name  and  Description,  then  Ctrl-W" 

READ 

ENDDO  (LASTKEY ( ) <>23 ) 

*  Make  sure  a  name  was  added 
IF  profilenam="  " 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "Set  NOT  Named  " 

@2,2  SAY  "Set  NOT  added! 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

SELECT  11 
ZAP 

SELECT  11 
USE 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (profilenam="  ") 

*  Make  sure  name  is  not  a  duplicate 
SELECT  4 

SEEK  temp->profilenam 


IF  .NOT.  EOF ( } 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "Duplicate  Set  Name" 

@2,2  SAY  "Set  NOT  added!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

SELECT  11 
ZAP 

SELECT  11 
USE 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (.NOT.  EOF ( ) ) 

ACTIVATE  WINDOW  editor 

*  Get  CASCOM  Area  Profile 
SELECT  7 

DO  setbrows 

SET  MESSAGE  TO  "Choose  an  Area  Profile,  then  Enter  to  Select" 

GO  TOP 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  profile 
SELECT  11 

REPLACE  temp->profile  WITH  profiles->prof ile 
ACTIVATE  SCREEN 

@16,17  SAY  profile  PICTURE  "XXXXXXXXXXXXXXX" 

ACTIVATE  WINDOW  editor 

*  Get  Combat  Posture 

SET  MESSAGE  TO  "Choose  a  Combat  Posture  for  Ammunition  Consumption,  then  Enter 
to  Select" 

SELECT  17 
GO  TOP 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT 
REPLACE  temp->posture  WITH  posture- >posture 

*  Get  Intensity 

SET  MESSAGE  TO  "Choose  an  Intensity  for  this  Parameter  Set,  then  Enter  to 
Select" 

SELECT  10 
GO  TOP 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  INTENSITY 
SELECT  11 

REPLACE  temp->intensity  WITH  intensty->intensity 
REPLACE  temp->factor  WITH  intensty->f actor 
SET  MESSAGE  TO 

*  Class  I 
SELECT  24 

SET  MESSAGE  TO  "Choose  Type  of  Ration  for  Breakfast  Meal,  then  Enter  to  Select" 
GO  TOP 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  ration,  unit,  plan_fact 
REPLACE  temp->cl_i_l  WITH  class_i->ration 
SELECT  24 

SET  MESSAGE  TO  "Choose  Type  of  Ration  for  Lunch  Meal,  then  Enter  to  Select" 

GO  TOP 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  ration,  unit,  plan_fact 
REPLACE  temp->cl_i_2  WITH  class_i->ration 
SELECT  24 

SET  MESSAGE  TO  "Choose  Type  of  Ration  for  Dinner  Meal,  then  Enter  to  Select” 

GO  TOP 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  ration,  unit,  plan_fact 
REPLACE  temp->cl  i  3  WITH  class  i->ration 


*  Select  Water  Parameters 
SELECT  23 

SET  MESSAGE  TO  "Choose  Water  Use  Parameters,  then  Enter  to  Select" 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  gal_man_da,  echelon, climate 
REPLACE  temp->water_name  WITH  water->water_name 

*  Select  Medical  Class  VIII  Parameters 
SELECT  22 

SET  MESSAGE  TO  "Choose  Medical  Class  VIII  Consumption  Parameters,  then  Enter  to 
Select" 


BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  plan_fact, echelon, INTENSITY 
DO  endbrows 


REPLACE  temp->med__name  WITH  medical->med_name 

SELECT  11 

USE 

SELECT  4 

APPEND  FROM  temp 

DEACTIVATE  WINDOW  editor 

DO  dispprof 

SELECT  11 

USE  temp 

ZAP 

SELECT  11 
USE 

SELECT  4 

*  CASE  BAR ( )  =  2 


*  ! 

Procedure:  VIEWPROF 


*  I 

*  ! 
* ! 
*  ! 
*  ! 
*  ! 
*  ! 
★  i 


Called  by:  CREP_PRO 

Calls:  SETBROWS . PRG 
:  ENDBROWS. PRG 
:  DISPPROF 


{procedure  in  CREATEPR. PRG) 


(procedure  in  CREATEPR. PRG) 


*[+******  +  *  +  ■*■*■***********  +  *  +  +  ****  +  *  +  ******.*.****  +  ***.*  +  +  +  +  +  +  *+  +  *  +  +  +  *  +  **** 

PROCEDURE  viewprof 
SELECT  4 


*  Make  sure  there  are  some  records  to  view 
IF  RECCOUNT ( ) =0 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  have  at" 

@2,2  SAY  "least  one  Set!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (RECCOUNT ()=0) 

ACTIVATE  WINDOW  browser 
GO  TOP 

*  SET  MESSAGE  TO  "Choose  Set  to  View" 

DO  setbrows 

BROWSE  NOMENU  NOEDIT  NOAPPEND  NODELETE  FIELDS  profilenam, prof iledes  FREEZE 
profilenam  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
SET  CURSOR  OFF 
DO  WHILE  LASTKEY ( ) <>23 


■v 


\ 


i * 


\ 
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* 


DO  dispprof 
IF  RECCOUNT 0=1 

@  23,30  SAY  "Crtl-W  when  Done" 

ELSE 

@  23,15  SAY  "Page-Up  or  Page-Down  to  View,  Ctrl-W  when  Done" 
ENDIF  (RECCOUNT ()=1) 

IF  LASTKEY ( ) =3 
SKIP 
IF  EOF  ( ) 

GO  TOP 

ENDIF  ( EOF ( ) ) 

ENDIF  ( LASTKEY () =3) 

IF  LASTKEY ()=18 
SKIP  -1 
IF  B0F() 

GO  BOTTOM 
ENDIF  (BOFO) 

ENDIF  ( LASTKEY () =18) 

WAIT  "" 

ENDDO  ( LASTKEY ()<>2 3) 

SET  CURSOR  ON 
SET  MESSAGE  TO 
CLEAR 


DO  dispprof 

*  CASE  BAR()  =  3 

*  1+  +  *  +  +  +  +  -k  +  +  +  +  -k  +  -k  +  +  +  +  +  +  -tr-ir’k-k-Je-Jr-4rie-jt4eie’-ie  +  -ir’k-je+-tr-tr’tr-lr-ir-lr-kir'k'-irir  +  -k-k-ir-ir-k-k-ir'ir-k-k-k'k-k-ir’k'k''tr-k‘-Jr 

*  ! 

*!  Procedure:  ENDCREP 

*  ! 

* !  Called  by:  CREP_PRO  (procedure  in  CREATEPR. PRG) 

*!  :  EDIPJPRO  (procedure  in  EDITPROF. PRG) 

*  ! 

*t********************************************************************* 


PROCEDURE  endcrep 
CLOSE  DATA 
DEACTIVATE  POPUP 
RETURN 


★ 


★  t 

★  1 

Procedure: 

START PRO 

*  ! 

Called  by: 

CREATEPR. PRG 

★  i 

*  ! 

5 

CRECUSPR. PRG 

★  | 

★  j 

Calls : 

STARTHLP. PRG 

*  ! 

Uses: 

MEDICAL. DBF 

*  ! 

WATER. DBF 

★  ! 

CLASS  I. DBF 

★  t 

POSTURE. DBF 

★  ! 

INTENSTY. DBF 

*  ! 

PROFILES. DBF 

★  ! 

★  ! 

CPROFILE . DBF 

★  ! 

MDX  files: 

MEDICAL. MDX 

★  i 

WATER. MDX 

*  ! 

CLASS  I. MDX 

*  ! 

INTENSTY. MDX 

★  i 

PROFILES. MDX 

*  ! 

CPROFILE. MDX 
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*  ! 

PROCEDURE  startpro 

DO  starthlp 
SELECT  22 
USE  medical 
SELECT  23 
USE  water 
SELECT  24 
USE  class_i 
SELECT  17 
USE  posture 
SELECT  10 
USE  intensty 
SELECT  7 
USE  profiles 

SELECT  4  y 

USE  cprofile 

SET  ORDER  TO  profilenam 

STORE  SPACE (60)  TO  namevar 


*  j 

*  ! 

+  { 

Procedure 

DISPPROF 

*  ! 

Called  by 

NEWPROFI 

(procedure 

in 

CREATEPR. PRG) 

*  t 

VIEWPROF 

(procedure 

in 

CREATEPR. PRG) 

*  ! 

SELEPROF 

(procedure 

in 

EDITPROF. PRG) 

★  1 

CHANGEAP 

(procedure 

in 

EDITPROF. PRG) 

*  ! 

CHANGEAC 

(procedure 

in 

EDITPROF. PRG) 

★  ! 

CHANGEI 

(procedure 

in 

EDITPROF. PRG) 

*  ! 

CHANGEIF 

(procedure 

in 

EDITPROF. PRG) 

*  i 

CHANGECI 

(procedure 

in 

EDITPROF. PRG) 

*  ! 

CHANGEH2 

(procedure 

in 

EDITPROF. PRG) 

*  ! 

CHANGEME 

(procedure 

in 

EDITPROF. PRG) 

★  ! 

SELECTPRO 

(procedure 

in 

DELPROF. PRG) 

*  ! 

FIND PRO 

(procedure 

in 

CREATEOR. PRG) 

★  t  ★  ★★■*•*★★•*■•*■*  +  +  *  +  +  +  +  +  +  *  +  +  +  +  ■*■*  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

PROCEDURE  dispprof 
@12,1  SAY  "  Name:" 

@12,17  SAY  profilenam  PICTURE  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

@13,1  SAY  "Description:  " 

@13,17  SAY  profiledes  PICTURE 

"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

@14,1  SAY  "Area"  *- 

@14,6  SAY  "Profile:" 

@14,17  SAY  profile  PICTURE  "XXXXXXXXXXXXXXX" 

@15,  1  SAY  "Intensity:" 

@15,17  SAY  INTENSITY  PICTURE  "XXXXXXXX" 

@15,27  SAY  "Factor"  * 

@15,35  SAY  factor  PICTURE  "999.99” 

@16,1  SAY  "Ammo  Consumption  Posture:  " 

@ROW(),COL()  SAY  posture 

@17,1  SAY  "Class  I  Ration  Cycle  " 

@  ROW ( ) ,  COLO  SAY  cl_i_l+"  "+cl_i_2+"  "+cl_i_3 
@18,1  SAY  "Water  Use  Parameters:  " 

@  ROW ( ) ,  COL ( )  SAY  water_name 
@19,1  SAY  "Class  VTII  Parameters:  " 

@  ROW ( ) ,  COL ( )  SAY  med_name 

*:  EOF:  CREATEPR. PRG 
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Procedure  file:  D:\SURE\CREATESR.PRG 

Procs  &  Fncts :  STARTCSR 
:  CSRC_PRO 
:  SEEKSRC 
:  COPYSRC 
:  COPYCSRC 
:  VIEWUNIT 
:  CSRCEND 
:  CSRCENDA 
:  COPYLINS 
:  DISPUNIT 
:  ADDDATA 

Set  by:  SRC_PRO  (procedure  in  SURE.PRG) 

Calls:  STARTCSR  (procedure  in  CREATESR. PRG) 

:  CSRC_PRO  (procedure  in  CREATESR. PRG) 

Documented  04/16/94  at  11:01  SNAP!  version  5.00 

*  createsr.prg 

*  creates  user  SRC  using  CASCOM  supplied  or  previous  user  SRC  as  basis. 

*  PRIVATE  Variables 
STORE  PROGRAM ()  TO  progvar 
STORE  "NO  "  TO  yesnovar 
STORE  SPACE (9)  TO  srcvar 
SET  PROCEDURE  TO  instunit 
DO  startcsr 

DEFINE  POPUP  csrc_pop  FROM  1,0 

DEFINE  BAR  1  OF  csrc_pop  PROMPT  "Select  SRC  (Browse)" 

DEFINE  BAR  2  OF  csrc_pop  PROMPT  "Select  SRC  (Find  SRC  with  SRC  Number)" 

DEFINE  BAR  3  OF  csrc_pop  PROMPT  "Add  New  Unit  from  SRC  or  Copied  Unit" 

DEFINE  BAR  4  OF  csrc_j3op  PROMPT  "Copy  Unit  from  Existing  Unit" 

DEFINE  BAR  5  OF  csrc_pop  PROMPT  "View  Existing  Units" 

DEFINE  BAR  6  OF  csrc_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  csrc_pop  DO  csrc_pro 
ON  BAR  1  OF  csrc_pop  DO  csrc_barl 

ON  BAR  2  OF  csrcjpop  DO  csrc_bar2 

ON  BAR  3  OF  csrc_pop  DO  csrc_bar3 

ON  BAR  4  OF  csrc_pop  DO  csrc_bar4 

ON  BAR  5  OF  csrc_pop  DO  csrc_bar5 

ON  BAR  6  OF  csrc_pop  DO  csrc_bar6 

DO  WHILE  PROMPT () <>"Return  to  Main  Menu" 

ACTIVATE  POPUP  csrc_pop 
ENDDO  (PROMPT () <>"Return  to  Main  Menu") 

SELECT  2 


+  ! 

★  \ 

*  i 

Procedure: 

CSRC_PRO 

*  ! 

*  ! 

Called  by: 

CREATESR.PRG 

★  ! 

Calls : 

COPYSRC 

(procedure 

in 

CREATESR.PRG) 

★  t 

SEEKSRC 

(procedure 

in 

CREATESR.PRG) 

*  ! 

CSRCENDA 

(procedure 

in 

CREATESR. PRG) 

*  ! 

COPYCSRC 

(procedure 

in 

CREATESR.PRG) 

★  r 

VIEWUNIT 

(procedure 

in 

CREATESR.PRG) 

103 


*  ! 
*  t 


:  CSRCEND 


(procedure  in  CREATESR . PRG) 


PROCEDURE  csrc_pro 
DO  CASE  ~ 

CASE  BAP.  (  )  =  1 
CLEAR 
DO  copysrc 
@  3,39  TO  8,78 

@  4,40  SAY  "C-CHOOSE  THIS  OPTION  TO  CREATE  A  UNIT!” 

@  5,40  SAY  "You  have  selected  an  SRC,  but  must" 

@  6,40  SAY  "create  the  Unit  from  it  to  copy  the" 

@  7,40  SAY  "equipment  LINs  and  quantities." 

CASE  BAR  ( )  =  2 
DO  seeksrc 

*  DONE  Save  SRC  and  add  another 
CASE  BAR()  =  3 

DO  csrcenda 
CASE  BAR  ( )  =  4 

IF  RECCOUNT ( ) >0 
DO  copycsrc 
@  3,39  TO  8,78 

@  4,40  SAY  "<-CHOOSE  THIS  OPTION  TO  CREATE  A  UNIT!" 

@  5,40  SAY  "You  have  selected  an  SRC,  but  must" 

@  6,40  SAY  "create  the  Unit  from  it  to  copy  the" 

@  7,40  SAY  "equipment  LINs  and  quantities." 

ENDIF  (RECCOUNT ()>0) 

*  View  Existing  Units 
CASE  BAR ( )  =  5 

DO  viewunit 

*  DONE  Save  SRC  and  end 
CASE  BAR()  =  6 

DO  csrcend 
ENDCASE 

*  Seek  SRC 

★  I**********************************************.*.********************** 


★  ! 

★  [ 

*  ! 

Procedure: 

SEEKSRC 

★  t 

★  i 

Called  by: 

CSRC  PRO 

(procedure 

in  CREATES R. PRG) 

★  f 

★  t 

Calls : 

COPYSRC 

(procedure 

in  CREATESR. PRG) 

*;*********  +  *****.  +  +  **  +  *****4r******.*.******.*  +  *******  +  Tt  +  +  i#  +  ll.  +  +  *  +  +  Jril.  +  +  +  +  it7t. 
PROCEDURE  seeksrc 
ACTIVATE  WINDOW  small 
SET  CONFIRM  ON 

@  1,1  SAY  "Enter  SRC  to  find:  " 

@  ROW ( ) ,  COL ( )  GET  srcvar 
READ 

SET  CONFIRM  OFF 
DEACTIVATE  WINDOW  small 
SELECT  5 

SET  ORDER  TO  src 
SET  NEAR  ON 
SEEK  srcvar 
SET  NEAR  OFF 
IF  EOF  ( ) 

ACTIVATE  WINDOW  small 

@1,1  SAY  "Not  found..  Press  any  key." 


* 


y 


> 


A 


WAIT  "" 

DEACTIVATE  WINDOW  small 
ELSE 

DO  copysrc 
ENDIF  ( EOF ( ) ) 

*  Copy  new  SRC  from  CASCOM  SRC 

★★★★★★•A-*-*' 

★  ! 


★  J 

Procedure: 

COPYSRC 

*  ! 

*  ! 

Called  by: 

CSRC  PRO 

*  ! 

; 

SEEKSRC 

* ! 

*  l 

Calls : 

SETBROWS . PRG 

*  ! 

ENDBROWS . PRG 

*  ! 

i 

DISPUNIT 

+  t 

(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 


(procedure  in  CREATESR. PRG) 


PROCEDURE  copysrc 

CLEAR 

SELECT  5 

* ACTIVATE  WINDOW  browser 

DO  setbrows  ’ 

BROWSE  NOEDIT  NOAPPEND  NOORGANIZE  NODELETE 
DO  endbrows 
SELECT  11 

REPLACE  temp->src  WITH  srclist->src 
REPLACE  temp->unit_desig  WITH  srclist->unit_desig 
REPLACE  temp->strength  WITH  srclist->strength 
REPLACE  temp->unitname  WITH  srclist->unit_desig 
CLEAR 

DO  WHILE  .T. 

@1,4  SAY  "Original" 

0  1,13  SAY  "SRC  DATA:" 

@  1,23  SAY  unit_desig  PICTURE  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

@  1,65  SAY  src  PICTURE  "XXXXXXXXX" 

@2,2  SAY 

@4,1  SAY  "Unit  Name:  " 

@  4,12  GET  unitname  PICTURE 

"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

@  6,28  SAY  "Authorized  Strength:  " 

@  6,49  GET  strength  PICTURE  "999999" 

@  8,12  SAY  "Organizational  relationships  and  logistical  caluculations" 

@  9,12  SAY  "are  based  on  the  Unit  Name  field.  You  will  NOT  be  allowed" 

@  10,12  SAY  "to  change  the  Unit  Name  once  you  leave  this  screen,  although" 
@  11,12  SAY  "you  will  be  able  to  copy  from  a  previously  defined  SRC." 

@  17,31  SAY  "CTRL-W  when  Done!" 

READ 

*  Error  check  to  make  sure  unitname  is  not  a  duplicate 
STORE  temp->unitname  TO  fieldvar 
SELECT  2 

IF  KEYMATCH ( fieldvar, TAGNO ( "UNITNAME" ) )  &&FOUNDO 

?  CHR(7) 

SET  MESSAGE  TO  "You  have  duplicated  a  Unit  Name  already  in  use!" 

SELECT  11 
ELSE 
EXIT 

ENDIF  ( KEYMATCH  (fieldvar,  TAGNO  (  "UNITNAME" )  )  &&FOUNDO) 

ENDDO  (.T.) 
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SET  MESSAGE  TO 
CLEAR 

DO  dispunit 

*  Copy  new  SRC  from  previous  custom  SRC 

★I********************************************************************* 

*  ! 

* !  Procedure:  COPYCSRC 

*  ! 

*!  Called  by:  CSRC_PRO  (procedure  in  CREATESR. PRG) 

*  i 

*!  Calls:  SETBROWS . PRG 

*  !  :  ENDBROWS . PRG 

*!  :  DISPUNIT  (procedure  in  CREATESR. PRG) 

*  ! 

*1**  +  *  +  +  **  +  *  +  +  *  +  +  *  +  ***  +  +  *  +  **  +  +  +  *******************^.^.*.***^^****^.^^^.^^.^^^ 
PROCEDURE  copycsrc 
CLEAR 
SELECT  2 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  NOEDIT  NOAPPEND  NOORGANIZE  NODELETE 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
SELECT  11 

REPLACE  temp->src  WITH  csrclist->src 
REPLACE  temp->unit_desig  WITH  csrclist->unit  desig 
REPLACE  temp->strength  WITH  csrclist->strength 
REPLACE  temp->unitname  WITH  csrclist->unit  desig 
CLEAR 

DO  WHILE  .T. 

SELECT  11 

@1,4  SAY  "Original" 

@  1,13  SAY  "SRC  DATA:" 

@  1,23  SAY  unit_desig  PICTURE  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX” 

@  1,65  SAY  src  PICTURE  "XXXXXXXXX" 

8  2,2  SAY 

@4,1  SAY  "Unit  Name:  " 

@  4,12  GET  unitname  PICTURE 

"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

@  6,28  SAY  "Authorized  Strength:  " 

@  6,49  GET  strength  PICTURE  "999999" 

@  8,12  SAY  "Organizational  relationships  and  logistical  calculations" 

@  9,12  SAY  "are  based  on  the  Unit  Name  field.  You  will  NOT  be  allowed" 

@  10,12  SAY  "to  change  the  Unit  Name  once  you  leave  this  screen,  although 
@  11,12  SAY  "you  will  be  able  to  copy  from  a  previously  defined  SRC." 

@  17,31  SAY  "CTRL-W  when  Done!" 

READ 

*  Error  check  to  make  sure  unitname  is  not  a  duplicate 
STORE  temp->unitname  TO  fieldvar 
SELECT  2 

IF  KEYMATCH ( fieldvar, TAGNO ( "UNITNAME" ) ) 

?  CHR ( 7 ) 

SET  MESSAGE  TO  "You  have  duplicated  a  Unit  Name  already  in  use ! " 

SELECT  11 
ELSE 
EXIT 

ENDIF  (KEYMATCH (fieldvar, TAGNO ("UNITNAME") ) ) 

ENDDO  (.T.) 

SET  MESSAGE  TO 


CLEAR 

DO  dispunit 

★  ! 

*!  Procedure:  VIEWUNIT 

*  ! 

* !  Called  by:  CSRC_PRO  (procedure  in  CREATESR. PRG) 

*  ! 

* !  Calls:  SETBROWS.PRG 

*  !  :  ENDBROWS . PRG 

*  ! 

PROCEDURE  viewunit 
SELECT  2 
IF  RECCOUNT ( ) =0 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

0  2,1  SAY  "Select  SRC  or  Unit  first!" 

0  3,1  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (RECCOUNT () =0) 

GO  TOP 
DO  setbrows 

*  SET  MESSAGE  TO  "End  for  1st  Record,  Home  for  Last  Record" 

ACTIVATE  WINDOW  browser 

BROWSE  NOEDIT  NOMENU  NOAPPEND  NODELETE  FIELDS  src,unitname 
DEACTIVATE  WINDOW  browser 
DO  endbrows 
SELECT  11 

*  DONE 

+  ;**  +  ********•****  +  *  +  +  *  +  +  ****  +  +  ***  +  **  +  **■*■+*  +  **  +  *  +  **  +  +  *  +  *****  +  ****  +  *  +  **  +  * 


*  ! 

★  f 

*  ! 

*  ! 

★  » 

Procedure: 

CSRCEND 

Called  by: 

CSRC_PRO 

(procedure 

in 

CREATESR. PRG) 

*  ! 

Calls : 

ADDDATA 

(procedure 

in 

CREATESR. PRG) 

*  ! 

★  » 

: 

COPYLINS 

(procedure 

in 

CREATESR. PRG) 

+  ;+  ****  +  ************  +  **.*****  +  *****  +  +  +  +  ***  +  **+***.***  +  *.*.**.*.*.*.*.*  +  +  .*.****  +  *  + 
PROCEDURE  csrcend 
*  IF  temp->src<>"  " 

ACTIVATE  WINDOW  small 

0  1,1  SAY  "Do  you  want  to  create  a  unit" 

0  2,1  SAY  "From  the  data  you  selected?  " 

0  3,1  SAY  "Enter  YES  to  do  so!  " 

7  0  ROW ( ) ,  COL()  GET  yesnovar  PICTURE  "!!!" 

READ 

DEACTIVATE  WINDOW  small 
IF  yesnovar="YES" 

DO  adddata 
DO  copylins 
ELSE 

SELECT  temp 
ZAP 

ENDIF  (yesnovar="YES") 

ENDIF  (temp->src<>"  ") 

CLOSE  DATA 
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SET  FORMAT  TO 
DEACTIVATE  POPUP 
RETURN 

*  DONE  and  add  another 

*(+******  +  *******  +  ********  +  +  ***  +  *********  +  ****  +  *  +  *  +  +  **  +  ********.********. 

*  i 


+  ! 

*  ! 

Procedure : 

CSRCENDA 

*  ! 

*  | 

Called  by: 

CSRC_PRO 

*  l 

Calls : 

ADDDATA 

*  ! 

COPYLINS 

★  j 

*  l 

STARTCSR 

(procedure  in  CREATESR. PRG) 

(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 


PROCEDURE  csrcenda 
IF  temp->src="  ” 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  2,1  SAY  "You  must  create  a  unit  first!" 
@3,1  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 
ELSE 


DO  adddata 
DO  copylins 
DO  startcsr 
ENDIF  (temp->src="  ") 

KEYBOARD  "{UPARROW}" 

* KEYBOARD  "{UPARROW}" 

* KEYBOARD  "{UPARROW}" 

CLEAR 

★t********************************************************************* 


(procedure  in  CREATESR. PRG) 


★  ! 

★  | 

Procedure: 

STARTCSR 

★  1 
★  \ 

Called  by: 

CREATESR. PRG 

*  ! 

! 

CSRCENDA 

*  ! 

*  ! 

★  ! 

Calls : 

STARTHLP . PRG 

* ! 

Uses : 

CSRCLIST. DBF 

*  ! 

TEMP. DBF 

★  \ 

SRCLIST . DBF 

*  ! 

SRCLINQT.DBF 

★  f 

*  ! 

CSRCLINQ. DBF 

★  ? 

MDX  files: 

CSRCLIST. MDX 

★  ! 

SRCLIST.  MDX 

★  t 

SRCLINQT . MDX 

* ! 

CSRCLINQ. MDX 

*  ! 

PROCEDURE  startcsr 
CLEAR 

CLOSE  DATA 
DO  starthlp 
SELECT  2 
USE  csrclist 


V 


> * 


K 
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* 


> 


» 


> 


COPY  STRUCTURE  TO  temp 

SELECT  5 

USE  srclist 

SELECT  6 

USE  srclinqt 

SELECT  14 

USE  csrclinq 

SELECT  11 

USE  temp 

ZAP 

APPEND  BLANK 

*  Add  LINs  to  csrclinq. dbf  for  this  CSRC 


*  ! 

********************************************************************* 

+  ! 
★  f 

Procedure : 

COPYLINS 

★  I 

Called  by: 

CSRCEND 

(procedure 

in 

CREATESR. PRG) 

*  ! 
*  | 

I 

CSRCENDA 

(procedure 

in 

CREATESR. PRG) 

*  ! 

Uses : 

TTEMP. DBF 

★  t 

*  i 

; 

TTTEMP. DBF 

PROCEDURE  copylins 

@  15,35  SAY  "Please  wait,  copying  LIN  information..." 

SELECT  14 

COPY  STRUCTURE  TO  ttemp 
SELECT  6 

COPY  TO  tttemp  FOR  srclinqt->src=temp->src 
SELECT  15 
USE  ttemp 

APPEND  FROM  tttemp 

REPLACE  ALL  ttemp->unitname  WITH  temp->unitname 

SELECT  15 

USE 

SELECT  14 
APPEND  FROM  ttemp 
@  5,35  SAY  " 

SET  MESSAGE  TO 

*  Display  Unit  data  on  screen 

*  j  ********************************************************************* 

*  ! 


(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  CUSTUNIT. PRG) 

*i********************************************************************* 

PROCEDURE  dispunit 
@  16,1  TO  16,78 

@  18,5  SAY  "SRC:  "+temp->src 
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*!  Procedure:  DISPUNIT 

*  ! 

* !  Called  by:  COPYSRC 

* !  :  COPYCSRC 

* !  :  ADDDATA 

* !  :  SELECTUNI 

* !  :  SELECTUN2 

* !  :  CHANGELI 

* !  :  ADDLINCA 

* !  :  DELLIN 

* !  :  CHANGEEH 

*!  :  EDITSTR 

* !  :  UN IT DATA 


@  20,5  SAY  "Unit:  "+temp->unitname 

*  Add  SRC  data  to  CSRClist  and  Cunit  dbf's 

+  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

*  I 


★  | 
*  ! 
*  ! 

★  I 

★  i 

★  ! 

*  I 

*  ! 
★  { 

★  t 

*  ! 

*  t 

*  ! 
*  ! 


Procedure:  ADDDATA 

Called  by:  CSRCEND 
:  CSRCENDA 

Calls:  ECHELON. PRG 
:  SETBROWS . PRG 
:  ENDBROWS . PRG 
:  DISPUNIT 

Uses:  ECHELONS. DBF 

MDX  files:  ECHELONS. MDX 


(procedure  in  CREATESR . PRG) 
(procedure  in  CREATESR. PRG) 


(procedure  in  CREATESR. PRG) 


*i  +  +  •*■**  +  **  +  +  *  +  +  +  *******■**  +  **  +  **  +  ****.*.*  +  *****  +  ■*  +  *  +  *  +  **  +  *****  +  *  +  +  +  +  +  ***  +  * 

PROCEDURE  adddata 
SELECT  2 
APPEND  BLANK 


REPLACE  csrclist->src  WITH  temp->src 
REPLACE  csrclist->unit__desig  WITH  temp->unit  desig 
REPLACE  csrclist->strength  WITH  temp->strength 
REPLACE  csrclist->unitname  WITH  temp->unitname 
REPLACE  csrclist->qty  WITH  1 

*  Try  to  guess  echelon  of  this  unit 
DO  echelon 

*  If  no  guess  could  be  made 
IF  echelon="  " 

SELECT  25 
USE  echelons 
DO  setbrows 

SET  MESSAGE  TO  "No  echelon  estimated.  Please  choose  unit  echelon,  then 
to  Select." 


ACTIVATE  WINDOW  browser 

BROWSE  NOEDIT  NOMENU  NOAPPEND  NODELETE  FIELDS  echelon 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
SELECT  2 

REPLACE  echelon  WITH  echelons->echelon 
ENDIF  (echelon="  ") 

DO  dispunit 

@  21,5  SAY  "Echelon:  "techelon 
IF  echelon= "COMPANY" 

S  HOW ( ) ,  COL ( )  SAY  "  Level  or  Below" 

ENDIF  ( echelon="COMPANY" ) 

SET  MESSAGE  TO 
SELECT  2 


Enter 


*:  EOF:  CREATESR. PRG 


1 


* 


if 


k 
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Procedure  file:  D:\SURE\CREATETA.PRG 


Procs  &  Fncts 


STARTASK 

CRET_PRO 

NAMETA 

ASSIGNUN 

ASSIGNU2 

UNITQTY 

ENDTASK 

ENDTASKA 

DISPTASK 

DISPUNI 


Set  by:  TASK_PRO 

Calls:  STARTASK 
:  CRET  PRO 


(procedure  in  SURE.PRG) 

(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 


Documented  04/16/94  at  11:01 


SNAP!  version  5.00 


*  createta.prg 

STORE  PROGRAM ( )  TO  progvar 

*  PRIVATE  Variables 
STORE  "NO  "  TO  yesnovar 

*  variable  for  taskorg  name 
STORE  0  TO  countvar 

STORE  SPACE (60)  TO  namevar 
STORE  1  TO  statusvar 
SET  PROCEDURE  TO  insttask 
DO  startask 

DEFINE  POPUP  cret_pop  FROM  1,5 

DEFINE  BAR  1  OF  cret_pop  PROMPT  "Name  Task  Organization" 

DEFINE  BAR  2  OF  cret_pop  PROMPT  "Assign  Units  -  Unit  Name  Order" 

DEFINE  BAR  3  OF  cret_pop  PROMPT  "Assign  Units  -  SRC  Order" 

DEFINE  BAR  4  OF  cret_pop  PROMPT  "Assign  Unit  Quantities” 

DEFINE  BAR  5  OF  cret_pop  PROMPT  "Create  from  Selected  Units” 

DEFINE  BAR  6  OF  cret_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  cret_pop  DO  cret  pro 
ON  BAR  1  OF  cret_pop  DO  cret_barl 

ON  BAR  2  OF  cret_pop  DO  cret_bar2 

ON  BAR  3  OF  cret_pop  DO  cret_bar3 

ON  BAR  4  OF  cret_pop  DO  cret_bar4 

ON  BAR  5  OF  cret_pop  DO  cret_bar5 

ON  BAR  6  OF  cret_pop  DO  cret_bar6 

DO  WHILE  PROMPT () <>"Return  to  Main  Menu" 

ACTIVATE  POPUP  cret_pop 
ENDDO  (PROMPT () <>"Return  to  Main  Menu") 

*i  **  +  *****  +  *  +  ****  +  *  +  *****  +  ****  +  **.  +  ************  +  +  *****  +  ***************.** 


Procedure:  CRET_PRO 

Called  by:  CREATETA.PRG 

Calls:  NAMETA 

:  ASSIGNUN 
:  ASSIGNU2 
:  UNITQTY 
:  ENDTASKA 


(procedure  in  CREATETA.PRG) 
(procedure  in  CREATETA.PRG) 
(procedure  in  CREATETA.PRG) 
(procedure  in  CREATETA.PRG) 
(procedure  in  CREATETA.PRG) 


’  :  ENDTASK  (procedure  in  CREATETA. PRG) 

*  ! 


*  |*****'  +  '*'*  +  +  **-*'***  +  '*-  +  *-  +  +  -*--A--**  +  ***-*--*-  +  *.  +  **  +  *-5lf  +  -****  +  *^.  +  +  +  *lk.^**  +  +  ;A.^.  +  +  ^  +  ^  +  +  +  + 

PROCEDURE  cret_pro 
DO  CASE 
CASE  BAR ()=1 
DO  nameta 


CASE  BAR ()=2 
DO  assignun 
CASE  BAR  ()=3 
DO  assignu2 
CASE  BAR ()=4 
DO  unitqty 
CASE  BAR ()=5 
DO  endtaska 
CASE  BAR  0=6 
DO  endtask 
ENDCASE 

*  Procedures  for  CreT_pop 


★  1 

*  J 

★  t 

Procedure: 

NAMETA 

★  f 

*  f 

Called  by: 

CRET  PRO 

(procedure 

in  CREATETA. PRG) 

★  1 
*  » 

Calls : 

DISPTASK 

(procedure 

in  CREATETA. PRG) 

+  \*  +  *  +  +  +  +  +  *++  +  +++  +  +  +  -k  +  -k  +  -k-ir  +  +  +  -k  +  +  +  +  +  +  +  +  +  +  +  ir  +  .jr  +  +  +  +  +  +  +  +  4.  +  +  +  4r  +  +  ir  +  ir  +  +  4'  +  +  jr  +  i'  + 

PROCEDURE  nameta 

SET  MESSAGE  TO  "Assign  Name  for  this  Task  Organization” 

ACTIVATE  WINDOW  medium 
DO  WHILE  .T. 

@  1,20  SAY  "Enter  Task  Organization  Name:  " 

@  3,7  GET  namevar 
READ 

IF  namevar="  " 


?  CHR ( 7 ) 

CLEAR 

@  1,10  SAY  "You  can't  have  a  Task  Organization  without  a  Name!" 

@  3,10 

WAIT 

SET  MESSAGE  TO 
DEACTIVATE  WINDOW  medium 
EXIT 
ELSE 

SELECT  1 

SET  ORDER  TO  taskorgnam 
SEEK  namevar 
IF  FOUND () 

?  CHR ( 7 ) 

CLEAR 

@  1,10  SAY  "Duplicate  Name!" 

@  3,10 
WAIT 
CLEAR 
ELSE 

CLEAR 

DEACTIVATE  WINDOW  medium 
DO  disptask 
statusvar=2 


t 


V 


4 


V 
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y 


SET  MESSAGE  TO 
EXIT 

ENDIF  (FOUNDO) 
END IF  (namevar="  ") 
ENDDO  ( . T . ) 

+  | 


+  ? 

*  i 

Procedure:  ASSIGNUN 

*  r 

Called  by:  CRET  PRO 

*  ! 

★  ! 

:  EDIT_PRO 

*  ! 

*  i 

Calls:  DISPTASK 

★  t 

Uses:  TEMP. DBF 

★  i 

*  r 

:  TTEMP . DBF 

(procedure  in  CREATETA. PRG) 
(procedure  in  EDITTASK. PRG) 

(procedure  in  CREATETA. PRG) 


PROCEDURE  assignun 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "Assign  a  Task  Organization  First!” 

@  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 
ELSE 

SET  MESSAGE  TO  "Enter  Y  for  units  in  this  Task  Organization,  then  Ctrl-W" 
ACTIVATE  WINDOW  browser 
SELECT  2 

REPLACE  ALL  taskorg  WITH  .n.  FOR  taskorg 
GO  TOP 

BROWSE  FIELDS  taskorg, src, unitname  NOAPPEND  NODELETE  NOMENU  FREEZE  taskorg 
DEACTIVATE  WINDOW  browser 
SET  MESSAGE  TO 
ENDIF  ( statusvar=l ) 


*  ! 

★  | 

★  i 

Procedure: 

ASSIGNU2 

*  ! 

★  » 

*  ! 

Called  by: 

CRET  PRO 
EDIT_PRO 

(procedure 

(procedure 

in 

in 

CREATETA. PRG) 
EDITTASK. PRG) 

*  ! 

*  ! 

Calls: 

DISPTASK 

(procedure 

in 

CREATETA. PRG) 

*  ! 

★  ! 

★  l 

Uses : 

TEMP. DBF 

TTEMP. DBF 

PROCEDURE  assignu2 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR (7) 

@1,2  SAY  "Assign  a  Task  Organization  First! 
@  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 
ELSE 
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SET  MESSAGE  TO  "Enter  Y  for  units  in  this  Task  Organization,  then  Ctrl-W" 
ACTIVATE  WINDOW  browser 
SELECT  2 

REPLACE  ALL  taskorg  WITH  „n.  FOR  taskorg 
SET  ORDER  TO  src 
GO  TOP 

BROWSE  FIELDS  taskorg, src, uni tname  NOAPPEND  NODELETE  NOMENU  FREEZE  taskorg 
DEACTIVATE  WINDOW  browser 
SET  MESSAGE  TO 
ENDIF  (statusvar=l) 


*  ! 

*  ! 

*  ! 

Procedure:  UNITQTY 

★  f 

*  r 

Called  by:  CRET  PRO 

(procedure  in  CREATETA.  PRG) 

PROCEDURE  unitqty 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "Assign  a  Task  Organization  First!" 

@  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 
ELSE 

SET  MESSAGE  TO  "Enter  quantity  1  or  more  of  units  in  this  Task  Organization, 
then  Ctrl-W" 

ACTIVATE  WINDOW  browser 
SELECT  2 

REPLACE  ALL  qty  WITH  0  FOR  qty>0 
GO  TOP 

SET  FILTER  TO  taskorg 
GO  TOP 

BROWSE  FIELDS  qty, src, uni tname  NOAPPEND  NODELETE  NOMENU  FREEZE  qty 
SET  FILTER  TO 
DEACTIVATE  WINDOW  browser 
ENDIF  (statusvar=l) 

*  ! 

*!  Procedure:  ENDTASK 

* ! 


★  f 

Called  by: 

CRET_PRO 

*  ! 

* ! 

Uses : 

TEMP. DBF 

★  i 

★  f 

• 

TTEMP . DBF 

(procedure  in  CREATETA. PRG) 


+  ;**  +  **  +  ********  +  +  **+  +  ******  +  **i.****>**i.***  +  +  +  *  +  +  ^#lt  +  +  +  +  ik.  +  itJk.i(l.jk<t  +  >.^i  +  :ti  +  ilr 
PROCEDURE  endtask 
IF  statusvar=2 

ACTIVATE  WINDOW  small 

@1,1  SAY  "Create  Task  Organization  from" 

@  2,2  SAY  "Selected  Units?  " 

@  ROW ( ) ,  COL ( )  GET  yesnovar  PICTURE  " ! ! ! " 

READ 

DEACTIVATE  WINDOW  small 
IF  yesnovar="YES" 

SELECT  1 

COPY  STRUCTURE  TO  temp 


* 


V 


* 


* 
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i 


f 


SELECT  2 

COPY  TO  ttemp  FOR  taskorg 

*  Check  to  see  some  units  had  been  selected 
SELECT  16 
USE  ttemp 
IF  RECCOUNT ( ) =0 
SELECT  16 
USE 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "No  Units  Assigned," 

@2,2  SAY  "No  Task  Force  Created!" 

@3,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
ELSE 

REPLACE  ALL  qty  WITH  1  FOR  qtyCl 

SELECT  16 

USE 

SELECT  11 
USE  temp 

APPEND  FROM  ttemp 

REPLACE  ALL  taskorgnam  WITH  namevar 
* REPLACE  ALL  qty  WITH  1  FOR  qtyCl 
SELECT  11 
USE 

SELECT  1 

APPEND  FROM  temp 
ENDIF  (RECCOUNT ()=0) 

SELECT  2 

REPLACE  ALL  taskorg  WITH  .n.  FOR  taskorg 
ENDIF  (yesnovar="YES" ) 

ENDIF  ( statusvar=2 ) 

CLOSE  DATA 
CLEAR 

DEACTIVATE  POPUP 

★  I***************************************************.*******.**********.*. 

★  \ 

*!  Procedure:  ENDTASKA 

*  ! 

*!  Called  by:  CRET_PRO  (procedure  in  CREATETA. PRG) 

*  ! 

*!  Uses:  TEMP. DBF 

*!  :  TTEMP. DBF 


*  |  *******************  *  +  ***********  +  *************  +  +  +  *  +  .*  ***************** 
PROCEDURE  endtaska 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR (7) 

@1,2  SAY  "Assign  a  Task  Organization  First!" 

@  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusvar=l) 

SELECT  1 

COPY  STRUCTURE  TO  temp 
SELECT  2 

COPY  TO  ttemp  FOR  taskorg 


115 


*  Check  to  see  some  units  had  been  selected 
SELECT  16 

USE  ttemp 
IF  RECCOUNT ( ) =0 
SELECT  16 
USE 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "Assign  some  units  First!" 

@  2,2  SAY  "Press  anv  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (RECCOUNT () =0) 

REPLACE  ALL  qty  WITH  1  FOR  qty<l 

SELECT  16 

USE 

SELECT  11 
USE  temp 

APPEND  FROM  ttemp 

REPLACE  ALL  taskorgnam  WITH  namevar 

SELECT  11 

USE 

SELECT  1 

APPEND  FROM  temp 
statusvar=l 

SET  MESSAGE  TO  "Give  new  Task  Organization  a  Name" 

♦  I*****************  *  +  *  +  *****************  +  **.******  +  *************** 


*  ! 

+  ! 

*  ! 

Procedure: 

STARTASK 

★  » 

Called  by: 

CREATETA. PRG 

*  » 

; 

CREATETC. PRG 

★  f 

★  l 

★  ! 

Calls : 

STARTHLP . PRG 

★  1 

Uses : 

TASKORG. DBF 

*  ! 

★  f 

• 

CSRCLIST. DBF 

★  i 

MDX  files: 

TASKORG. MDX 

*  ! 

: 

CSRCLIST. MDX 

+  » 

PROCEDURE  startask 
CLEAR 

CLOSE  DATA 


DO  starthlp 
SELECT  1 


USE  taskorg 


SELECT  2 
USE  csrclist 
SELECT  1 


★  ? 


★  ! 

*  ! 

Procedure : 

DISPTASK 

★  i 

Called  by: 

NAMETA 

★  i 

ASSIGNUN 

★ » 

ASSIGNU2 

* ! 

FINDTA 

(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETC. PRG) 


t 


1 


+  ! 

:  ASSIGNNA 

(procedure 

in 

CREATETC. PRG) 

*  ! 

:  VIEWTASK 

(procedure 

in 

EDITTASK.PRG). 

*  j 

:  VIEWTAS2 

(procedure 

in 

EDITTASK. PRG) 

★  | 

:  UNASS I GU 

(procedure 

in 

EDITTASK.PRG) 

*  ! 

:  UNASS I G2 

(procedure 

in 

EDITTASK.PRG) 

*  ! 

~k  \-k'k'k-k-k-k'k-k-kr'k'k-k^r'k’k-k-k’k'k-k--if'k'k-k-k-k-k-k-k-k-)r-k-k'k-k-k-k-k'k-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k'k'k-k-k'k-k-k-k'k-k 

PROCEDURE  disptask 
@  17,2  TO  17,78 

@  21,2  SAY  "Task  Organization:  " 

@  ROW ( ) , COL ( )  SAY  namevar 

★  ( 

*!  Procedure:  DISPUNI 

*  ! 

★  1'k-k'k-k-k-k-k-k-k-kie'k-k-k'k’Jr'k’k'k-ir-le-k'ie-kle-k-k-k-k'k'k'k-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k-k-k-k-te-k-k'k-k-k'k-k-k-k-kk-k'k-k'k-k-k 

PROCEDURE  dispuni 

@  19,2  SAY  "  PARENT  UNIT:  " 

@  ROW ( ) , COL ( }  SAY  unitvar 
RETURN 

*:  EOF:  CREATETA.PRG 


% 


> 
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*•  Procedure  file:  D:\SURE\CREATETC.PRG 
Procs  &  Fncts: 


COPT_PRO 

FINDTA 

ASSIGNNA 

ENDCOPT 

ENDCOPTA 


Set  by:  TASK_PRO 
Calls 


STARTASK 
COPT  PRO 


(procedure  in  SURE.PRG) 

(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETC . PRG) 


Documented  04/16/94  at  11:01  SNAP!  version  5.00 

+  +  +  +  +  +  +  +  +  i  +  +  +  +  +  +  +  +  +  +  +  +  v  +  +  +  +  +  +  +  +  #  +  +  +  +  ^ 

*  createta.prg 

STORE  PROGRAM ()  TO  progvar 

*  PRIVATE  Variables 
STORE  "NO  "  TO  yes nova r 
CLEAR 

*  variable  for  taskorg  name 
STORE  0  TO  countvar 

STORE  SPACE (60)  TO  namevar 
STORE  SPACE (60)  TO  namevar2 
STORE  1  TO  statusvar 
SET  PROCEDURE  TO  insttask 
DO  startask 

DEFINE  POPUP  copt_pop  FROM  1,5 

DEFINE  BAR  1  OF  copt_pop  PROMPT  "Select  Task  Organization  to  Copy” 

DEFINE  BAR  2  OF  copt_pop  PROMPT  "Assign  New  Task  Organization  Name” 

DEFINE  BAR  3  OF  copt_pop  PROMPT  "Save  and  Copy  Another"  ' 

DEFINE  BAR  4  OF  copt_jiop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  copt_jDop  DO  copt  pro 
ON  BAR  1  OF  copt_pop  DO  copt  barl  _ 

ON  BAR  2  OF  copt_pop  DO  copt_bar2 

ON  BAR  3  OF  copt_pop  DO  copt~bar3 

ON  BAR  4  OF  copt_pop  DO  copt~ bar4 

DO  WHILE  PROMPT ()<>" Return  to  Main  Menu" 

ACTIVATE  POPUP  copt_pop 
ENDDO  (PROMPT ()<> "Return  to  Main  Menu") 

*  !+  +  +  ******  +  *  +  *****  +  ***  +  +  +  +  +  +  *****  +  *  +  ***********  +  +  +  *****  +  *.****-*.*****  +  Jr  + 


* ! 
*  ! 
★  | 

Procedure: 

COPT_PRO 

★  f 

Called  by: 

CREATETC 

*  ! 
★  ( 

Calls : 

FINDTA 

*  ! 

: 

ASSIGNNA 

*  ! 

: 

ENDCOPT 

*  ! 

: 

ENDCOPTA 

*  ! 

PROCEDURE  copt  pro 
DO  CASE 

CASE  BAR  ()=1 

DO  findta 

CASE  BAR ()=2 

DO  assignna 

(procedure  in  CREATETC. PRG) 
(procedure  in  CREATETC. PRG) 
(procedure  in  CREATETC. PRG) 
(procedure  in  CREATETC. PRG) 


( 


* 


k 
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CASE  BAR  ()=4 
DO  endcopt  . 
CASE  BAR  ()=3 
DO  endcopta 
ENDCASE 
*  Open  files 


*  ! 

+  ! 

Procedure : 

STARTASK 

*  ! 

★  { 

Called  by: 

CREATETA. PRG 

1 

*  ! 

: 

CREATETC . PRG 

★  ! 

*  ! 

*  J 

Calls : 

STARTHLP . PRG 

★  i 

Uses : 

TASKORG. DBF 

t 

*  ! 

★  f 

• 

CSRCLIST . DBF 

★  l 

MDX  files: 

TASKORG. MDX 

*  ! 

: 

CSRCLIST. MDX 

*  ! 

PROCEDURE  startask 
CLEAR 

DO  starthlp 
SELECT  1 
USE  taskorg 

*  Select  Task  Organization 

*  i ++*  +  +  +  +  +  ****  +  **  +  *****  +  *  +  +  **  + *.>**********  +  ******  +  ****  +  **  +  *  +  *  +  +  ***.**  +  ** 


(procedure  in  CREATETC. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  DELTASK.PRG) 


(procedure  in  CREATETA. PRG)  • 

*[*********+****+****++++*****++*********+****+******++*+****★*******+* 
PROCEDURE  findta 
SELECT  1 

SET  ORDER  TO  uniqueta  &&  only  view  each  task  order  name  once 

DO  setbrows 

BROWSE  FIELDS  taskorgnam  NOMENU  NOEDIT  NOAPPEND  NODELETE 
DO  endbrows 

STORE  taskorgnam  TO  namevar  &&  Will  replace  with  new  name 

STORE  taskorgnam  TO  namevar2  &&  Needed  to  copy  old  Task  Org 

DO  disptask 

SET  ORDER  TO  taskorgnam 
statusvar=2 

★  Assign  new  Task  Org  name 

★  f  **★*★*★★*  +  ★★*★*★•*■★•*■■*■*■*■★★***■*  +  *★*★*★★*★*★*★*★•*■★•*•★•*•  +  *•★★★*  *****  ********* 

★  ! 

*  !  Procedure:  ASSIGNNA 

* ! 

*  i 


*  ! 

★  I 

Procedure : 

FINDTA 

★  t 

★  ! 

Called  by: 

EDITTASK. PRG 

★  ! 

COPT  PRO 

*  ! 

• 

« 

EDIT  PRO 

★  r 

• 

DELT_PRO 

★  i 

★  t 

Calls : 

SETBROWS. PRG 

★  | 

ENDBROWS . PRG 

★  j 

DISPTASK 

★  1 

Called  by:  COPT  PRO 


(procedure  in  CREATETC. PRG) 
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*  ! 
*  i 


Calls:  DISPTASK 


(procedure  in  CREATETA. PRG) 


*  f'*'***  +  ***  +  *  +  ***  +  *  +  ***  +  -*  +  +  **-**-*"*-***  +  +  **  +  **  +  -****  +  ^.*1v  +  ***^.*****^^^.*^lk.^.  +  >  +  ^. 

PROCEDURE  assignna 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "Select  Task  Organization  First!" 

@  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusvar=l) 

SET  MESSAGE  TO  "Assign  Name  for  this  Task  Organization" 

ACTIVATE  WINDOW  medium 
DO  WHILE  .T. 

@  1,20  SAY  "Enter  Task  Organization  Name:  " 

@  3,7  GET  namevar 
READ 

IF  namevar="  " 

?  CHR (7 ) 

CLEAR 

@  1,10  SAY  "You  can’t  have  a  Task  Organization  without  a  Name!" 

@  3,10 
WAIT 

SET  MESSAGE  TO 
DEACTIVATE  WINDOW  medium 
EXIT 
ELSE 

SELECT  1 

SET  ORDER  TO  taskorgnam 
SEEK  namevar 
IF  FOUND () 

?  CHR (7) 

CLEAR 

@  1,10  SAY  "Duplicate  Name!" 

@  3,10 
WAIT 
CLEAR 
ELSE 

CLEAR 

DEACTIVATE  WINDOW  medium 
DO  disptask 
SET  MESSAGE  TO 


statusvar=3 

EXIT 

ENDIF  (FOUNDO) 
ENDIF  (namevar="  ") 
ENDDO  ( . T . ) 

*  DONE 


*  i 


*  ! 
*  ! 
*  i 

* ! 
* ! 
+  f 


Procedure:  ENDCOPT 
Called  by:  COPT  PRO 


Uses:  TEMP. DBF 


(procedure  in  CREATETC. PRG) 


* ! +  ******************  +  ***•+* 
PROCEDURE  endcopt 


* 


* 
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&&  All  required  actions  completed 


1 


y 


> 


IF  statusvar^S 

ACTIVATE  WINDOW  small 
@1,1  SAY  "Create  Task  Organization  from" 
@2,2  SAY  "Copied  Units?  " 

@  ROW  ( )  ,  COLO  GET  yesnovar  PICTURE  "!!!" 
READ 

DEACTIVATE  WINDOW  small 
IF  yesnovar="YES" 

SELECT  1 

SET  ORDER  TO  taskorgnam 

COPY  TO  temp  FOR  taskorgnam=namevar2 

SELECT  11 

USE  temp 

REPLACE  ALL  taskorgnam  WITH  namevar 

SELECT  11 

USE 

SELECT  1 

APPEND  FROM  temp 
SELECT  11 


USE  temp 
ZAP 

ENDIF  ( yesnovar="YES " ) 

ENDIF  ( statusvar=3  &&  All  required  actions  completed) 

CLOSE  DATA 
DEACTIVATE  POPUP 

*  DONE  -  and  copy  another 

+  i  ********  +  *■*■****•■*****************  +  *  +  ****  +  +  +  +  *********  +  *******■*■******** 

*  ! 

* !  Procedure:  ENDCOPTA 

*  ! 

*!  Called  by:  COPT_PRO  (procedure  in  CREATETC . PRG ) 

* ! 

*  !  Uses:  TEMP. DBF 

*  ! 

* i ********************************************************************* 


PROCEDURE  endcopta 

IF  statusvar<>3  &&  All  required  actions  not  completed 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "No  Task  Force  Copied.." 

@2,2  SAY  "No  Task  Force  Created!" 

@3,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
ELSE 

SELECT  1 

SET  ORDER  TO  taskorgnam 

COPY  TO  temp  FOR  taskorgnam=namevar2 

SELECT  11 


USE  temp 

REPLACE  ALL  taskorgnam  WITH  namevar 

SELECT  11 

USE 

SELECT  1 

APPEND  FROM  temp 
SELECT  11 
USE  temp 
ZAP 

statusvar=l 

ENDIF  (statusvar<>3  &&  All  required  actions  not  completed) 
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Procedure:  DISPTASK 


Called  by:  NAMETA 

:  ASSIGNUN 
:  ASSIGNU2 
:  FINDTA 
:  ASSIGNNA 
:  VIEWTASK 
:  VIEWTAS2 
:  UNASS I GU 
:  UNASSIG2 


(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETC . PRG) 
(procedure  in  CREATETC. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  EDITTASK. PRG) 


PROCEDURE  disptask 
@  17,2  TO  17,78 

@  21,2  SAY  "Task  Organization:  " 
@  ROW ( ) , COL ( )  SAY  namevar 


*:  EOF:  CREATETC. PRG 


4 


* 


122 


i 


> 


V 


r'lr-ir-Jr-k-)r-Jr-tr'ie-ir-)r-4c-)r-jir-)r  +  -±-)r-4r-jc-±-tr+:'Jc  +  -k'ir-M-k'ir-4r-k'ie-ir,+r,4r'k-Jr,'ir-ir-ir-1ej 


Procedure  file 
Procs  &  Fncts 


D:\SURE\CRECUSPR.  PRG 

CRCP_PRO 

NEWCUSPR 

VIEWCUSP 

EDITCUSP 

ENDCUSPR 

DELCUSPR 

DISPPRO 


Set  by:  PROF_PRO 

Calls:  STARTPRO 
:  CRCP  PRO 


(procedure  in  SURE. PRG) 

(procedure  in  CREATEPR. PRG) 
(procedure  in  CRECUSPR. PRG) 


*:  Documented  04/16/94  at  11:01  SNAP!  version  5.00 

*  createpro . prg 
CLEAR 

STORE  PROGRAM ()  TO  progvar 
SET  PROCEDURE  TO  instprof 
DO  startpro 

DEFINE  POPUP  crcpjpop  FROM  1,14 

DEFINE  BAR  1  OF  crcp_pop  PROMPT  "Create  Custom  Area  Profile" 

DEFINE  BAR  2  OF  crcp_pop  PROMPT  "View  Area  Profiles" 

DEFINE  BAR  3  OF  crcp_pop  PROMPT  "Edit  Custom  Area  Profile" 

DEFINE  BAR  4  OF  crcp_pop  PROMPT  "Return  to  Main  Menu" 

DEFINE  BAR  6  OF  crcp_pop  PROMPT  "Delete  Custom  Area  Profile" 

ON  SELECTION  POPUP  crcp_pop  DO  crcp_pro 
ON  BAR  1  OF  crcpjiop  DO  crcp_barl 

ON  BAR  2  OF  crcp_pop  DO  crcp_bar2 

ON  BAR  3  OF  crcp_pop  DO  crcp_bar3 

ON  BAR  4  OF  crcp_pop  DO  crcp_bar4 

ON  BAR  6  OF  crcp_pop  DO  crcp_bar6 

DO  WHILE  PROMPT () <>"Return  to  Main  Menu" 

ACTIVATE  POPUP  crcp_pop 
ENDDO  ( PROMPT ()<> "Return  to  Main  Menu") 


*  \ 

*  ! 

Procedure: 

CRCP_PRO 

*  ! 

★  } 

Called  by: 

CRECUSPR 

*  ! 

*  ! 

Calls : 

NEWCUSPR 

★  ! 

VIEWCUSP 

★  j 

EDITCUSP 

*  ! 

ENDCUSPR 

★  t 

DELCUSPR 

★  ! 

(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 

*(***+*++******+****+*+*+***+**+*•+**********+***++**++*****+++*+*+*+*+* 


PROCEDURE  crcp_pro 
DO  CASE 
CASE  BAR  0=1 
DO  newcuspr 
CASE  BAR ()=2 
DO  viewcusp 
CASE  BAR  0=3 
DO  editcusp 
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CASE  BAR  0=4 
DO  endcuspr 
CASE  BAR  ()=6* 

DO  delcuspr 
ENDCASE 

*  Procedures  for  crcp_pop 

*  CASE  BAR ( )  =  1 

*  ! 

*  !  Procedure:  NEWCUSPR 

*  J 

*!  Called  by:  CRCP_PRO  (procedure  in  CRECUSPR . PRG) 

*  ! 

*!  Calls:  SETBROWS . PRG 

*  !  :  ENDBROWS . PRG 

*  ! 

*!  Uses:  TEMP. DBF 

*  j 

PROCEDURE  newcuspr 
SELECT  7 

COPY  STRUCTURE  TO  temp 

SELECT  11 

USE  temp 

APPEND  BLANK 

SELECT  7 

SET  FILTER  TO 

ACTIVATE  WINDOW  browser 

DO  setbrows 

SET  MESSAGE  TO  "  or  to  move.  Enter  to  Select  Profile  to  base  Custom  Settinqs 
On" 

BROWSE  NOAPPEND  NOEDIT  NODELETE  FIELDS  custom,  profile  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 

*  Replace  temp.dbf  with  selected  Profile  data 
REPLACE  temp->ae_hrs  WITH  prof iles->ae_hrs 
REPLACE  temp->av_hrs  WITH  prof iles->av_hrs 
REPLACE  temp->ce_hrs  WITH  profiles->ce  hrs 
REPLACE  temp— >gn_hrs  WITH  profiles->gn  hrs 
REPLACE  temp->hg_hrs  WITH  profiles->hg“hrs 
REPLACE  temp->mh_hrs  WITH  profiles->mh  hrs 
REPLACE  temp->ov_hrs  WITH  profiles— >ov  hrs 
REPLACE  temp->sg_hrs  WITH  prof iles->sg_hrs 
REPLACE  temp->sv_hrs  WITH  profiles->sv  hrs 
REPLACE  t emp - > wv_kms  WITH  profiles->wv  kms 
REPLACE  temp->tv_ti_hrs  WITH  profiles->tv_ti_hrs 
REPLACE  temp->tv_cc_hrs  WITH  prof iles->tv_cc  hrs 
REPLACE  temp->tv_sr_hrs  WITH  profiles->tv“sr“hrs 
REPLACE  temp->custom  WITH  .y. 

SELECT  11 
KEYBOARD  CHR(127) 

SET  MESSAGE  TO  "Enter  Custom  Profile  Name  and  Data,  then  Ctrl-W  to  Save" 

CLEAR 

@  1,2  SAY  "  Enter  Custom  Profile  Name  " 

@  ROW  (),  COLO  GET  profile 

@  ROW ( ) , COL ( )  SAY  "  Based  on:  "+prof iles->prof ile 

@  2,2  SAY  "  If  no  Profile  Name  is  entered,  data  WILL  NOT  be 

saved. " 

@4,2  SAY  " 

@  ROW ( ) ,  COL ( )  GET  ae  hrs 


Amphibious  Equipment 


@ 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

@ 

5,2  SAY  " 

Construction 

@ 

ROW ( ) ,  COL ( ) 

GET 

ce  hrs 

@ 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

e 

6,2  SAY  " 

Generators 

@ 

ROW ( ) ,  COL { ) 

GET 

gn  hrs 

0 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

e 

7,2  SAY  " 

Heating  Equipment 

@ 

ROW ( ) ,  COL ( ) 

GET 

hg  hrs 

0 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

0 

8,2  SAY  " 

Materials  Handling  Equipment 

0 

ROW ( ) ,  COL ( ) 

GET 

mh  hrs 

0 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

0 

9,2  SAY  "  Stationary  Equipment  - 

■  Miscellaneous 

0 

ROW ( ) ,  COL ( ) 

GET 

sg  hrs 

0 

ROW ( ) ,  COL ( ) 

SAY 

”  hours/day" 

0 

10,2  SAY  "Stationary  Equipment  - 

Vehicle  Mounted 

0 

ROW ( ) ,  COL ( ) 

GET 

sv  hrs 

0 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

0 

12,2  SAY  " 

Tracked 

Vehicles  -  Idle 

0 

ROW ( ) ,  COL ( ) 

GET 

tv  ti  hrs 

0 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

0 

13,2  SAY  " 

Tracked  Vehicles 

-  Cross  Country 

0 

ROW ( ) ,  COL ( ) 

GET 

tv  cc  hrs 

0 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

0 

14,2  SAY  " 

Tracked  Vehicles  - 

Secondary  Roads 

0 

ROW ( ) ,  COL ( ) 

GET 

tv_sr  hrs 

0 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

@ 

16,2  SAY  " 

Wheeled  Vehicles 

@ 

ROW ( ) ,  COL ( ) 

GET 

wv  kms 

0 

ROW ( ) ,  COL ( ) 

SAY 

"  kilometers/day 

,tl 

0 

17,2  SAY  " 

Other  Vehicles 

e 

ROW ( ) ,  COL ( ) 

GET 

ov  hrs 

@ 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

@ 

19,2  SAY  " 

Aviation 

8 

ROW ( ) ,  COL ( ) 

GET 

av  hrs 

e 

ROW ( ) ,  COL ( ) 

SAY 

"  hours/day" 

READ 

CLEAR 

SET  MESSAGE  TO 

★ 

Make  sure  a  i 

name 

was  added 

IF  profile="  " 

ACTIVATE  WINDOW 

small 

?  CHR (7 ) 

@  1,2  SAY  "Set  NOT  Named  " 

@2,2  SAY  "Set  NOT  added! 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

SELECT  11 
ZAP 

SELECT  11 
USE 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (profile="  ") 

*  Make  sure  name  is  not  a  duplicate 
SELECT  7 

SEEK  temp->profile 
IF  .NOT.  EOF ( ) 


ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "Duplicate  Profile  Name" 

@  2,2  SAY  "Profile  NOT  added!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

SELECT  11 
ZAP 

SELECT  11 
USE 

DEACTIVATE  WINDOW  small 
CLEAR 
RETURN 

.NOT.  EOF ( ) ) 

11 

7 

FROM  temp 
BAR()  =  2 

***********************  +  **.*********.*.*.*.,(.***, **  +  **  +  **.*.*.***  +  *.*.*****+. 
Procedure:  VTEWCUSP 

Called  by:  CRCP_PRO  (procedure  in  CRECUSPR. PRG) 

Calls:  SETBROWS . PRG 
:  ENDBROWS . PRG 

:  DISPPRO  (procedure  in  CRECUSPR. PRG) 

*t****  +  ****************-k  +  *  +  +  *  +  A*  +  *  +  **+-**  ++*  +  **  +  +  +  *  +  +  +  +  +  +  +  +  +  +  -nnr*  +  **  +  +  1H' 

PROCEDURE  viewcusp 
SELECT  7 

ACTIVATE  WINDOW  browser 
GO  TOP 
DO  setbrows 

BROWSE  NOAPPEND  NOEDIT  NODELETE  FIELDS  custom,  profile  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
CLEAR 


END IF  ( 

SELECT 

USE 

SELECT 

APPEND 

*  CASE 

*  j  ***** 

*  i 

*  i 

*  i 

*  i 

*  I 

*  ! 

*  i 

*  t 

*  ! 


DO  disppro 
WAIT  "" 

@  23,  2  SAY  " 

CLEAR 

*  CASE  BAR ( )  =  3 

*(***+*****************  +  +  ***  +  +  +  +  *  +  ^Jfc,  +  +  ^r  +  +  +  +  +  +  1fc,  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  i>it  +  +  +  +  +  ^ 

*  t 

*!  Procedure:  EDITCUSP 

*  i 

*!  Called  by;  CRCP_PRO  (procedure  in  CRECUSPR. PRG) 


*  ! 
*  | 
*  ; 


Calls:  SETBROWS. PRG 
:  ENDBROWS . PRG 


PROCEDURE  editcusp 
SELECT  7 

SET  FILTER  TO  custom 
GO  TOP 
IF  EOF ( ) 

ACTIVATE  WINDOW  small 


? 


A 


► 
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?  CHR ( 7 ) 

@  1,2  SAY  "No  Custom  Profiles!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

SET  FILTER  TO 

CLEAR 

RETURN 

ENDIF  ( EOF { ) ) 

DO  setbrows 

BROWSE  NOAPPEND  NOEDIT  NODELETE  FIELDS  custom,  profile  COMPRESS 

*  DO  endbrows 

@1,2  SAY  "  Custom  Profile  Name  " 

@  ROW (), COL()  SAY  profile 

@  4,2  SAY  "  Amphibious  Equipment  " 

@  ROW ( ) ,  COL ( )  GET  ae_hrs 

*  @  ROW  ( )  ,  COLO  SAY  "  hours/day" 

@5,2  SAY  "  Construction  ” 

@  ROW ( ) ,  COL ( )  GET  ce_hrs 
@  ROW  ( )  ,  COLO  SAY  "  hours/day" 

@  6,2  SAY  "  Generators  " 

@  ROW ( ) ,  COL { )  GET  gn_hrs 
@  ROW ( ) ,  COL()  SAY  "  hours/day" 

@  7,2  SAY  "  Heating  Equipment  " 

@  ROW ( ) ,  COL ( )  GET  hg_hrs 
@  ROW  ( )  ,  COLO  SAY  "  hours/day" 

@8,2  SAY  "  Materials  Handling  Equipment  " 

@  ROW  0 ,  COL ()  GET  mh_hrs 
@  ROW(),  COLO  SAY  "  hours/day" 

@9,2  SAY  "  Stationary  Equipment  -  Miscellaneous  ” 

@  ROW ( )  ,  COLO  GET  sgjirs 
@  ROW ( )  ,  COLO  SAY  "  hours/day" 

@  10,2  SAY  "Stationary  Equipment  -  Vehicle  Mounted  " 

@  ROW ( ) ,  COL ( )  GET  sv_hrs 
@  ROW  ( )  ,  COLO  SAY  "  hours/day" 

@  12,2  SAY  "  Tracked  Vehicles  -  Idle  ” 

@  ROW  ( )  ,  COLO  GET  tv_ti_hrs 
@  ROW  ( )  ,  COLO  SAY  "  hours/day" 

@  13,2  SAY  "  Tracked  Vehicles  -  Cross  Country  " 

@  ROW ( ) ,  COL ( )  GET  tv_cc_hrs 
@  ROW ( )  ,  COLO  SAY  "  hours/day" 

@  14,2  SAY  "  Tracked  Vehicles  -  Secondary  Roads  " 

@  ROW ( )  ,  COLO  GET  tv_sr_hrs 

*  @  ROW(),  COLO  SAY  "  hours/day" 

@  16,2  SAY  "  Wheeled  Vehicles  " 

@  ROW ( ) ,  COL()  GET  wv_kms 
@  ROW ( ) ,  COLO  SAY  "  kilometers/day" 

@  17,2  SAY  "  Other  Vehicles  " 

*  @  ROW ( ) ,  COL ( )  GET  ov_hrs 

@  ROW ( )  ,  COLO  SAY  "  hours/day" 

@  19,2  SAY  "  Aviation  " 

@  ROW ( ) ,  COL ( )  GET  av_hrs 
@  ROW  ( ) ,  COLO  SAY  "  hours/day" 

@  21,2  SAY  "  Enter  Changes,  then  CTRL-W  to  Return  to  Menu" 

READ 

CLEAR 

SET  MESSAGE  TO 
SET  FILTER  TO 
RETURN  ' 

*  CASE  BAR ( )  =  4 
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*  f 

*!  Procedure:  ENDCUSPR 

*  ! 

*!  Called  by:  CRCP_PRO  (procedure  in  CRECUSPR. PRG) 

*  ! 

*l+*  +  **  +  *******  +  **  +  *  +  +  **  +  *****  +  +  *  +  **.**********  +  *****  +  +  ****  +  ****.*******  + 

PROCEDURE  endcuspr 
CLOSE  DATA 
DEACTIVATE  POPUP 
*  CASE  BAR()  =  6 

*1+**  +  ******  +  **********  +  ****  +  *********.*.******^^.*******^*^***********^^^ 


*  ! 

★  « 

*  ! 

Procedure: 

DELCUSPR 

*  ! 

★  ! 

Called  by: 

CRCP_PRO 

(procedure 

in  CRECUSPR. PRG) 

+  f 

*  \ 

★  ! 

*  i 

Calls : 

SETBROWS . PRG 
ENDBROWS . PRG 
DISPPRO 

(procedure 

in  CRECUSPR. PRG) 

*i  *  +  +  ******  +  **-****  +  ***  +  *  +  +  *  +  *  +  ***  +  ********  +  ******  +  *****.**  +  +  *******  +  1ll.  +  Ai. 

PROCEDURE  delcuspr 
SELECT  7 

SET  FILTER  TO  custom 
GO  TOP 
IF  EOF ( ) 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "No  Custom  Profiles!" 

0  3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

SET  FILTER  TO 

CLEAR 

RETURN 

ENDIF  ( EOF ( ) ) 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  NOAPPEND  NOEDIT  NODELETE  FIELDS  custom,  profile  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
CLEAR 

DO  disppro  « 

STORE  "NO  "  TO  yesnovar 
ACTIVATE  WINDOW  small 

@1,1  SAY  "Enter  YES  to  Delete  this  Profile  " 

@  ROW ( ) ,  COL()  GET  yesnovar  PICTURE  "!!!" 

READ  V 

DEACTIVATE  WINDOW  small 
IF  yesnovar="YES" 

SELECT  4 
GO  TOP 

SEEK  prof iles->profile 
IF  FOUND () 

?  CHR (7) 

ACTIVATE  WINDOW  browser 
TEXT 


This  Profile  is  used  in  a  Parameter  Set.  You  can  not  delete  it! 
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Press  any  key  to  continue* . . 


* 


¥ 


> 


ENDTEXT 

WAIT 

DEACTIVATE  WINDOW  browser 

SELECT  7 

SET  FILTER  TO 

CLEAR 

RETURN 

ENDIF  (FOUNDO) 

ELSE 

SET  FILTER  TO 

CLEAR 

RETURN 

ENDIF  (yesnovar="YE3") 

SELECT  7 
DELETE 

SET  FILTER  TO 

PACK 

CLEAR 

RETURN 

*  ! 


★  J 

★  f 

Procedure : 

STARTPRO 

*  1 

Called  by: 

CREATEPR. PRG 

*  t 

.  : 

CRECUSPR. PRG 

*  ! 

*  f 

*  f 

Calls : 

STARTHLP . PRG 

*  ! 

Uses : 

MEDICAL. DBF 

★  ! 

« 

• 

WATER. DBF 

★  I 

CLASS  I. DBF 

★  i 

POSTURE. DBF 

★  f 

INTENSTY. DBF 

★  i 

PROFILES.  DBF 

*  ! 

*  i 

CPROFILE. DBF 

★  i 

MDX  files: 

MEDICAL. MDX 

★  i 

WATER. MDX 

★  j 

CLASS  I. MDX 

*  ! 

INTENSTY. MDX 

★  { 

PROFILES. MDX 

★  t 

CPROFILE. MDX 

*  ! 

★  !+★*★★★★★*★★★★★★*★*★★**★★  +  ★★****■***★★★★★  +  ★***★★***  +  **  +  ★★★★*★  +  ***  +  ★*•*•★* 

PROCEDURE  startpro 

DO  starthlp 

SELECT  4 

USE  cprofile 

SET  ORDER  TO  profile 

SELECT  7 

USE  profiles  ORDER  profile 
STORE  SPACE (60)  TO  namevar 

*  f  ★  ★★★★★★★★★★★★★★★★★★★★★★it*****************************-***********'***** 

*  I 

*!  Procedure:  DISPPRO 

*  ! 

*!  Called  by:  VIEWCUSP  (procedure  in  CRECUSPR. PRG) 

*!  :  DELCUSPR  (procedure  in  CRECUSPR. PRG) 
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*  ! 

*  I  *  +  ****  +  **■*-*  +  +  *  +  +  •«.-».***  +  .*.**  +  ***  +  +  +  +  *  +  *  +  *  +  +  **  +  **■*•  +  ***  +  +  *  +  ****  +  *  +  *  +  +  +  +  +  +  +  * 

PROCEDURE  disppro 

@  1,2  SAY  "  Profile  Name  " 

0  ROW  (>,  COLO  SAY  profile 

0  4,2  SAY  "  Amphibious  Equipment  " 

0  ROW ( ) ,  COL ( )  SAY  ae_hrs 
0  ROW ( ) ,  COL()  SAY  "  hours/day” 

0  5,2  SAY  "  Construction  " 

0  ROW ( ) ,  COL ( )  SAY  ce_hrs 
0  ROW  ( )  ,  COLO  SAY  "  hours/day" 

@6,2  SAY  "  Generators  "  * 

0  ROW  0 ,  COL ()  SAY  gn_hrs 
0  ROW ( ) ,  COLO  SAY  "  hours/day" 

0  7,2  SAY  "  Heating  Equipment  " 

0  ROW ( ) ,  COL ( )  SAY  hg_hrs 

0  ROW  ( )  ,  COLO  SAY  "  hours/day"  * 

0  8,2  SAY  "  Materials  Handling  Equipment  " 

0  ROW ( ) ,  COL ( )  SAY  mh_hrs 
0  ROW ( ) ,  COL ( )  SAY  "  hours/day" 

@9,2  SAY  "  Stationary  Equipment  -  Miscellaneous  " 

0  ROW  ( )  ,  COLO  SAY  sg_hrs 
0  ROW ( ) ,  COL()  SAY  "  hours/day" 

0  10,2  SAY  "Stationary  Equipment  -  Vehicle  Mounted  " 

0  ROW ( ) ,  COL()  SAY  sv_hrs 
0  ROW ( )  ,  COLO  SAY  "  hours/day" 

0  12,2  SAY  "  Tracked  Vehicles  -  Idle  " 

0  ROW  ( )  ,  COLO  SAY  tv_ti_hrs 
0  ROW{),  COL{)  SAY  "  hours/day" 

0  13,2  SAY  "  Tracked  Vehicles  -  Cross  Country  " 

0  ROW  ( ) ,  COLO  SAY  tv_cc_hrs 
0  ROW ( )  ,  COLO  SAY  ”  hours/day" 

0  14,2  SAY  "  Tracked  Vehicles  -  Secondary  Roads  " 

0  ROW  ( )  ,  COLO  SAY  tv_sr_hrs 
0  ROW  ( )  ,  COLO  SAY  "  hours/day" 

0  16,2  SAY  "  Wheeled  Vehicles  " 

0  ROW ( ) ,  COL ( )  SAY  wv_kms 
0  ROW { ) ,  COL ( )  SAY  "  kilometers/day" 

0  17,2  SAY  "  Other  Vehicles  " 

0  ROW ( ) ,  COL ( )  SAY  ov_hrs 
0  ROW ( ) ,  COL()  SAY  "  hours/day" 

0  19,2  SAY  "  Aviation  " 

0  ROW ( ) ,  COL ( )  SAY  av_hrs 

0  ROW ( ) ,  COLO  SAY  "  hours/day"  * 

0  23,  2  SAY  "  Press  any  Key  to  Continue..." 

*:  EOF:  CRECUSPR.PRG 

¥ 
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t 

Procedure  file:  D:\SURE\CUSTUNIT.PRG 


Procs  &  Fncts:  CUST_PRO 
:  UN IT DATA 

Set  by:  SRC_PRO 

Calls:  STARTUNI 
:  CUST_PRO 

Documented  04/16/94  at  11:01 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


(procedure  in  SURE.PRG) 

(procedure  in  EDITUNIT.PRG) 
(procedure  in  CUSTUNIT . PRG) 

SNAP!  version  5.00 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


*  editunit.prg 

*  creates  master/subordinate  unit  relationships. 

*  PRIVATE  Variables 

**  statusvar  controls  user  attempts  to  do  actions  out  of  sequence 

STORE  PROGRAM ()  TO  progvar 

STORE  1  TO  statusvar 

SET  PROCEDURE  TO  instunit 

DO  startuni 

SET  MESSAGE  TO  "Create  Custom  Unit" 

DEFINE  POPUP  cus t _ pop  FROM  1,0 

DEFINE  BAR  1  OF  cust_pop  PROMPT  "Enter  Unit  Data" 

DEFINE  BAR  2  OF  cust_pop  PROMPT  "View/Change  LIN  Quantities" 

DEFINE  BAR  3  OF  cust_pop  PROMPT  "Add  LINs" 

DEFINE  BAR  4  OF  cust_pop  PROMPT  "Delete  LIN" 

DEFINE  BAR  5  OF  cust_pop  PROMPT  "Change  Unit  Echelon" 

DEFINE  BAR  6  OF  cust_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  cust_pop  DO  cust_pro 
ON  BAR  1  OF  cust_pop  DO  cust_barl 

ON  BAR  2  OF  cust_pop  DO  cust_bar2 

ON  BAR  3  OF  cust_pop  DO  cust_bar3 

ON  BAR  4  OF  cust_jpop  DO  cust_bar4 

ON  BAR  5  OF  cust_pop  DO  cust_bar5 

ON  BAR  6  OF  cust_pop  DO  cust_bar6 

DO  WHILE  PROMPT ()<> "Return  to  Main  Menu" 

ACTIVATE  POPUP  custjpop 
ENDDO  (PROMPT () <>"Return  to  Main  Menu") 

*  ON  SELECTION  POPOP  cust_pop  DO  cust_pro 

k  f  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k  | 


★  t 

★  I 

★  ! 

★  t 

★  j 

★  ! 
*  ! 

★  t 

★  i 

★  t 

★  | 


Procedure:  CUST_PRO 

Called  by:  CUSTUNIT. PRG 

Calls:  UN IT DATA 
:  CHANGELI 
:  ADDLINCA 
:  DELLIN 
:  CHANGEEH 
:  ENDUNIT 


(procedure  in  CUSTUNIT. PRG) 
(procedure  in  EDITUNIT.PRG) 
(procedure  in  EDITUNIT.PRG) 
(procedure  in  EDITUNIT.PRG) 
(procedure  in  EDITUNIT.PRG) 
(procedure  in  EDITUNIT.PRG) 


PROCEDURE  cust_pro 
DO  CASE 

*  Select  Unit 
CASE  BAR()  =  1 
DO  unitdata 
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*  Change  LIN  quantities 
CASE  BAR  { )  =  2 

DO  changeli 

*  Add  LIN 
CASE  BAR { )  =  3 

DO  addlinca 

*  Delete  LIN 
CASE  BAR()  =  4 

DO  dellin 

*  Change  Unit  Echelon 
CASE  BAR()  =  5 

DO  changeeh 

*  Done 


CASE  BAR ( )  =  6 
DO  endunit 


ENDCASE 


*  ! 

*  1 
*  ! 

Procedure : 

STARTUNI 

*  ! 

Called  by: 

EDITUNIT. PRG 

★  i 

★  1 

* 

CUSTUNIT. PRG 

*  ! 

Calls: 

STARTHLP .  PRG 

*  ! 

HELP. PRG 

*  f 

ENDUNIT 

★  j 

*  ! 

Uses : 

CSRCLIST . DBF 

★  i 

LINLIST . DBF 

★  I 

AMMORATE . DBF 

★  t 

POLRATE. DBF 

★  t 

SRCLIST. DBF 

* ! 

SRCLINQT. DBF 

★  ! 

CSRCLINQ . DBF 

★  f 

• 

• 

ECHELONS. DBF 

*  ! 

*  ! 

MDX  files: 

CSRCLIST.  MDX 

*  ! 

LINLIST. MDX 

*  ! 

AMMORATE. MDX 

★  ! 

POLRATE . MDX 

*  ! 

SRCLIST. MDX 

★  ! 

SRCLINQT. MDX 

* ! 

CSRCLINQ. MDX 

*  ! 

*  » 

ECHELONS. MDX 

(procedure  in  EDITUNIT. PRG) 


*1*+*  +  *****  +  **  +  **  +  *  +  +  +  *******^.***^. 
PROCEDURE  startuni 
CLOSE  DATA 
CLEAR 


DO  starthlp 
SELECT  8 

USE  ammorate  ORDER  lin 
SELECT  9 


USE  polrate  ORDER  lin 
SELECT  5 

USE  srclist  NOUPDATE 
SELECT  6 

USE  srclinqt  ORDER  lin  NOUPDATE 
SELECT  2 

USE  cs relist  ORDER  unitname 


1 


f 


4 


* 
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(procedure  in  CUSTUNIT . PRG) 


(procedure  in  CREATESR. PRG) 

* !  Uses:  TEMP. DBF 

*  ! 

PROCEDURE  unitdata 
SELECT  2 

COPY  STRUCTURE  TO  temp 
SELECT  11 
USE  temp 
APPEND  BLANK 

REPLACE  src  WITH  "CUSTOM" 

CLEAR 

DO  WHILE  .T. 

*@  0,2  SAY 

@2,1  SAY  "SRC  (Optional):  " 

@  ROW  ( )  ,  COLO  GET  src 
@4,1  SAY  "Unit  Name:  " 

@4,12  GET  unitname  PICTURE 

"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

@  6,28  SAY  "Authorized  Strength:  " 

@  6,49  GET  strength  PICTURE  "999999" 

@  8,12  SAY  "Organizational  relationships  and  logistical  caluculations" 

@  9,12  SAY  "are  based  on  the  Unit  Name  field.  You  will  NOT  be  allowed" 

@  10,12  SAY  "to  change  the  Unit  Name  once  you  leave  this  screen,  although 
@  11,12  SAY  "you  will  be  able  to  copy  from  a  previously  defined  SRC." 

@  17,31  SAY  "CTRL-W  when  Done!" 

READ 

*  Make  sure  a  name  was  added 
IF  unitname="  " 

RETURN 

ENDIF  (unitname="  ") 

*  Error  check  to  make  sure  unitname  is  not  a  duplicate 
STORE  temp->unitname  TO  fieldvar 

SELECT  2 

IF  KEYMATCH ( fieldvar, TAGNO ( "UNITNAME") ) 

?  CHR ( 7 ) 

SET  MESSAGE  TO  "You  have  duplicated  a  Unit  Name  already  in  use!" 

SELECT  11 
LOOP 

ENDIF  (KEYMATCH (fieldvar, TAGNO ("UNITNAME") ) ) 

SELECT  11 

*  Error  check  to  make  sure  SRC  is  not  a  duplicate 
SELECT  11 

fieldvar=src 
IF  srco"  " 

SELECT  5 


SELECT  14 

USE  csrclinq  ORDER  unitname 
SELECT  25 
USE  echelons 
SELECT  2 

k  |  kkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
k  | 

★  | 

*  ! 

*  ! 

★  t 

★  I 
* ! 

★  f 


Procedure:  UNITDATA 

Called  by:  CUST_PRO 

Calls:  ECHELON. PRG 
:  DISPUNIT 


IF  KEYMATCH ( fieldvar, TAGNO ( "SRC" ) ) 

?  CHR ( 7 ) 

SET  MESSAGE  TO  "You  have  duplicated  an  SRC  already  in  use!" 

SELECT  11 
LOOP 
ELSE 

SELECT  11 

ENDIF  (KEYMATCH (fieldvar, TAGNO ("SRC") ) ) 

ENDIF  (srco"  ") 

IF  LASTKEY ( ) =23 
EXIT 

ENDIF  (LASTKEY ()=23)  n 

ENDDO  ( . T . ) 

SET  MESSAGE  TO 

STORE  unitname  TO  fieldvar 

SELECT  11 

USE  * 

SELECT  2 

APPEND  FROM  temp 
DO  echelon 
statusvar=2 
CLEAR 

DO  dispunit 

*  Change  LIN  quantities 

+  [*  +  +  +  ***  +  *******  +  *****  +  ******  +  **  +  J,  +  ********  +  *Jr  +  +  +  +  *  +  ill.  +  +  +  +  lk.#  +  ll.  +  jj  +  +  il.  +  +  # 

*  ! 

*  !  Procedure:  CHANGELI 

*  ! 

*!  Called  by:  EDIU_PRO  (procedure  in  EDITUNIT. PRG) 

*!  :  OUST  PRO  (procedure  in  CUSTUNIT . PRG) 

* !  — 

*!  Calls:  SETBROWS.PRG 

*!  :  ENDBROWS . PRG 

*j  :  DISPUNIT  (procedure  in  CREATESR. PRG) 

PROCEDURE  changeli 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  create  a  unit  first!" 

@  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small  * 

RETURN 

ENDIF  (statusvar=l) 

SELECT  14 

SET  ORDER  TO  lin 

SET  RELATION  TO  lin  INTO  ammorate,  lin  INTO  polrate  V 

*  limit  csrclist  access  to  records  with  the  same  unit  name 

SET  ORDER  TO  unitname 

SET  KEY  TO  csrclist->unitname 

0  0,25  SAY  "POL-User" 

@  0,55  SAY  "AMMO-User" 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  FIELDS  lin, quantity, polrate->lin_nomen  /28, ammorate->lin  nomen  FREEZE 
quantity  ~ 

DO  endbrows 

DEACTIVATE  WINDOW  browser 
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@  0,25  SAY  " 

0  0,55  SAY  ” 

SET  MESSAGE  TO 
SET  RELATION  TO 
SET  KEY  TO 
DO  dispunit 
*  Add  LIN 


*  ! 

*******************************************************************+* 

^  f 

*  | 
-*■  i 

Procedure : 

ADDLINCA 

★  ? 

Called  by: 

EDIU  PRO 

(procedure 

in 

EDITUNIT. PRG) 

+  i 

-*•  | 

: 

CUST_PRO 

(procedure 

in 

CUSTUNIT. PRG) 

★  | 

Calls : 

SETBROWS . PRG 

★  t 

ENDBROWS. PRG 

★  ! 

★  | 

DISPUNIT 

(procedure 

in 

CREATESR. PRG) 

PROCEDURE  addlinca 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR(7) 

@1,2  SAY  "You  must  create  a  unit  first!" 

@  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusvar=l) 

SELECT  6 

SET  ORDER  TO  lin 

SET  RELATION  TO  lin  INTO  ammorate,  lin  INTO  polrate 
SET  ORDER  TO  uniqueli 
0  0,25  SAY  "POL-User" 

@  0,55  SAY  "AMMO-User" 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  FIELDS  lin,  polrate->lin_nomen,  ammorate->lin_nomen 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
@  0,25  SAY  " 

@  0,55  SAY  " 

STORE  lin  TO  fieldl 
STORE  0  TO  field2 
SET  MESSAGE  TO 
ACTIVATE  WINDOW  editor 

@  2,2  SAY  "Enter  quantity  of  0  if  you  do  not  want  to  add  this  LIN" 
8  4,10  SAY  "LIN:  "+fieldl 
@  5,10  SAY  "Quantity:  " 

0  5,21  GET  field2 
READ 

SET  RELATION  TO 
IF  field2>0 
SELECT  14 

STORE  src  TO  field3 

*  Check  to  make  sure  LIN  is  not  already  included! 

SEEK  fieldl 
IF  .NOT.  FOUND () 

APPEND  BLANK 

REPLACE  src  WITH  field3 


135 


REPLACE  lin  WITH  fieldl 
REPLACE  quantity  WITH  field2 
REPLACE  unitname  WITH  csrclist->unitname 
ENDIF  (.NOT.  FOUNDO) 

DEACTIVATE  WINDOW  editor 
SET  KEY  TO  csrclist->unitname 
ENDIF  ( f ield2>0 ) 

DEACTIVATE  WINDOW  editor 
SELECT  2 


DO  dispunit 
*  Delete  LIN 


*  ! 

★  r 

★  | 

Procedure: 

DELLIN 

*  ! 

Called  by: 

EDIU  PRO 

*  ! 

2 

CUST_PRO 

★  | 

*  ! 

Calls 

SETBROWS 

*  ! 

: 

ENDBROWS 

*  ! 

*  i 

DISPUNIT 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  CUSTUNIT . PRG) 


(procedure  in  CREATESR. PRG) 


★  f  -k-k-kkr-k-kir-k-k-k-k-k-k-k-k 

PROCEDURE  dellin 
IF  statusvar=l 


k  k 


ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  choose  a  unit  first!" 

@  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusvar=l) 

SELECT  14 

SET  ORDER  TO  lin 

SET  RELATION  TO  lin  INTO  ammorate,  lin  INTO  polrate 

limit  csrclist  access  to  records  with  the  same  unit  name 
SET  ORDER  TO  unitname 
SET  KEY  TO  cunit->unitname 
@  0,25  SAY  "POL-User" 

@  0,55  SAY  "AMMO-User" 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  FIELDS  lin, quantity, polrate->lin  nomen  /28, ammorate->lin  nomen  FREEZE 
quantity  NOEDIT  ~ 

DO  endbrows 

DEACTIVATE  WINDOW  browser 
@  0,25  SAY  " 

@  0,55  SAY  "  " 

SET  MESSAGE  TO 

*  Make  sure  user  wants  to  delete  LIN 
ACTIVATE  WINDOW  small 
STORE  "  "  TO  MEMVAR 

@1,1  SAY  "LIN:  "+lin 

@2,1  SAY  "POL-User  "+polrate->lin_nomen 
@3,1  SAY  "AMMO-User  "+ammorate->lin  nomen 
@4,1  SAY  "Type  YES  to  Delete" 

@  4,21  GET  MEMVAR  PICTURE  "!!!" 

READ 

CLEAR 


* 


* 


4 


* 
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p 


1* 


IF  MEMVAR="YES” 

DELETE 

PACK 

WAIT  "LIN  DELETED...  Press  Any  Key" 

ELSE 

WAIT  "LIN  NOT  DELETED...  Press  Any  Key” 
ENDIF  ( MEMVAR= "YES") 

DEACTIVATE  WINDOW  small 
SET  RELATION  TO 
SET  KEY  TO 
DO  dispunit 
*  Change  Unit  Echelon 


*  ! 

*  ! 

*  ! 

Procedure: 

CHANGEEH 

*  f 

Called  by: 

EDIU  PRO 

(procedure 

in 

EDITUNIT . PRG) 

*  ! 

*  ! 

5 

CUST__PRO 

(procedure 

in 

CUSTUNIT. PRG) 

*  ! 

Calls : 

SETBROWS . PRG 

★  f 

: 

ENDBROWS . PRG 

★  j 

*  ! 

s 

DISPUNIT 

(procedure 

in 

CREATESR. PRG) 

★  | 

★  | 

★  | 

Uses : 

ECHELONS . DBF 

MDX  files: 

ECHELONS. MDX 

*  1 

•k  |  +  +  +  +  +  +  +  +  +  +  +  +  +  +  -k  +  +  +  4r-k  +  +  +  -fc  +  +  +  -k-k-ir-k'-k-}r-k-fr--ir'k  +  -irie-ir  +  -jr-it-ir-k-tr-jr-k-jr-k-k'4r-k1c-*--jr-k-4rie-k-tr-k-k'k-ir'k-k  + 

PROCEDURE  changeeh 
SELECT  25 
USE  echelons 
DO  setbrows 

SET  MESSAGE  TO  "No  echelon  estimated.  Please  choose  unit  echelon,  then  Enter  to 
Select. " 


ACTIVATE  WINDOW  browser 

BROWSE  NOEDIT  NOMENU  NOAPPEND  NODELETE  FIELDS  echelon 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
SELECT  2 

REPLACE  echelon  WITH  echelons->echelon 
DO  dispunit 

*  Return  to  previous  menu 

♦I********************************************************************* 


*  ! 

*  l 

*  ! 

Procedure: 

ENDUNIT 

★  t 

Called  by: 

STARTUNI 

(procedure 

in 

EDITUNIT. PRG) 

★  t 

EDIU  PRO 

(procedure 

in 

EDITUNIT. PRG) 

★  j 

*  t 

CUST  PRO 

(procedure 

in 

CUSTUNIT. PRG) 

PROCEDURE  endunit 
CLEAR 

DEACTIVATE  POPUP 
CLOSE  DATABASES 
RETURN 

*  Display  record  information 

*1***************+********+*+**************+*********^***************^* 

*  i 


Procedure:  DISPUNIT 
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*  t 


*  ! 
*  ! 

*  t 

*  ! 
*  ! 
*  \ 

*  l 

*  I 

*  t 

*  t 

*  | 
*  | 


Called  by 


COPYSRC 

(procedure 

in 

CREATESR. PRG! 

COPYCSRC 

(procedure 

in 

CREATESR. PRG) 

ADDDATA 

(procedure 

in 

CREATESR. PRG) 

SELECTUNI 

(procedure 

in 

EDITUNIT . PRG) 

SELECTUN2 

(procedure 

in 

EDITUNIT. PRG) 

CHANGELI 

(procedure 

in 

EDITUNIT. PRG) 

ADDLINCA 

(procedure 

in 

EDITUNIT. PRG) 

DELLIN 

(procedure 

in 

EDITUNIT. PRG) 

CHANGEEH 

(procedure 

in 

EDITUNIT. PRG) 

EDITSTR 

(procedure 

in 

EDITUNIT. PRG) 

UN  IT  DATA 

(procedure 

in 

CUSTUNIT. PRG) 

★{*+★★★★★***+★**+★★*++★*****+★*******+***+****+*********+****+++*+★**-*+ 
PROCEDURE  dispunit 
SELECT  2 
0  16,1  TO  16,78 

0  18,5  SAY  "SRC:  "+csrclist->src 

@  20,5  SAY  "Unit:  "+unitname 

0  21,5  SAY  "Echelon:  "+echelon 

IF  echelon= "COMPANY" 

@  ROW ( ) ,  COL ( )  SAY  "  Level  or  Below" 

ELSE 

8  ROW ( ) ,  COL ( )  SAY  " 

ENDIF  ( echelon="COMPANY" ) 

0  22,5  SAY  "Strength  "+TRANS FORM (strength, "999, 999") 

*:  EOF:  CUSTUNIT . PRG 


* 


■* 


4 
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* 


(procedure  in  SURE. PRG) 
(procedure  in  DELORDE.PRG) 


Procedure  file:  D:\SURE\DELORDE.PRG 

Procs  &  Fncts:  DORD_PRO 

Set  by:  ORDE_PRO 

Calls:  STARTHLP . PRG 
:  DORD_PRO 

Uses :  ORDERTAS . DBF 
:  ORDERLST . DBF 

MDX  files:  ORDERTAS. MDX 
:  ORDERLST. MDX 

Documented  04/16/94  at  11:01 


SNAP!  version  5.00 


CLEAR 

SET  PROCEDURE  TO  instorde 
STORE  PROGRAM ()  TO  progvar 
STbRE  1  TO  statusvar 

*  Open  Files 
DO  starthlp 

STORE  1  TO  statusvar 
SELECT  18 
USE  ordertas 
SELECT  3 
USE  orderlst 

*  Main  Popup 

DEFINE  POPUP  dord_pop  FROM  1,23 

DEFINE  BAR  1  OF  dord_pop  PROMPT  "Get  Order" 

DEFINE  BAR  2  OF  dord_pop  PROMPT  "Delete  Order" 

DEFINE  BAR  3  OF  dord_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  dord_pop  DO  dord_pro 
ON  BAR  1  OF  dord_pop  DO  dord_barl 
ON  BAR  2  OF  dord_pop  DO  dord_bar2 
ON  BAR  3  OF  dord_pop  DO  dord_bar3 
DO  WHILE  PROMPT ()<>" Return  to  Main  Menu" 

ACTIVATE  POPUP  dord_pop 
ENDDO  (PROMPT () <>"Return  to  Main  Menu") 

it^’k'k-k'k-k'k'k-k-ifk-k-k'k'k-k'ir'k’k'k-k-ifk+fk-it'k'k-k’it'k’k-ir'k'tfk-ifk’ifk’k-k-k-k-k-k-k-k-k-k-k+ck  +  'k’k-k'k'k-k'k-k'k'k-k'k-k'k-k'i' 

*  ! 

* !  Procedure :  DORD_PRO 

★  I 

*!  Called  by:  DELORDE.PRG 

★  ! 


*!  Calls:  GETORDER  (procedure  in  EDITORDE. PRG) 

*  ! 


PROCEDURE  do rd_pro 
DO  CASE 
CASE  BAR  0=1 
DO  getorder 
statusvar=2 
CASE  BAR  0=2 

IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 
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@1,2  SAY  "You  must  select  an  Order  first!" 
@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
CLEAR 
ELSE 

STORE  "NO  "  TO  yesnovar 
ACTIVATE  WINDOW  small 

@1,1  SAY  "Enter  YES  to  Delete  this  Order!  " 
@  ROW ( ) ,  COL()  GET  yesnovar  PICTURE  "!!!" 
READ 


IF  yesnovar="YES" 

STORE  NUMBER  TO  numberva 
SELECT  18 

DELETE  FOR  NUMBER=numberva 

PACK 

SELECT  3 

DELETE  FOR  NUMBER=numberva 

PACK 

CLEAR 

@  2,5  SAY  "Deleted!  Press  any  key..." 
WAIT  "" 


DEACTIVATE  WINDOW  small 
CLEAR 
ELSE 

@  2,5  SAY  "NOT  Deleted!  Press  any  key..." 
WAIT  " " 

ENDIF  (yesnovar=”YES" ) 

ENDIF  (statusvar=l) 

DEACTIVATE  WINDOW  small 
CASE  BAR  ()=3 
CLOSE  DATA 
DEACTIVATE  POPUP 
RETURN 
ENDCASE 

*  CASE  BAR  ()=1 

*  CLEAR 


*  ! 
*  ! 

*  f 
+ 1 
* ! 

*  ! 


Procedure: 
Called  by: 


GETORDER 

ORDT_PRO 
DORD_PRO 
ORDR  PRO 


(procedure 

(procedure 

(procedure 


in  EDITORDE. PRG) 
in  DELORDE. PRG) 
in  0RDEREP1 . PRG) 


* ! 
*  ! 
*  ! 
*  ! 
*  ! 
★  | 

*  t 

*  i 

*  i 

*  ! 


Calls:  SETBROWS . PRG 
:  ENDBROWS . PRG 
:  DISP0RD2 
:  VIEWORDE 
:  DISPORD 
:  DISP0RD3 
:  CALCPOL. PRG 
:  CALCAMMO .  PRG 
:  CALCOTHE . PRG 


(procedure 

(procedure 

(procedure 

(procedure 


in  CREATEOR. PRG) 
in  CREATEOR. PRG) 
in  CREATEOR. PRG) 
in  0RDEREP1 . PRG) 


*!******'*,***********'**"*'*******'*****  +  +  '*'-*-  +  *--*'*+*  +  *  +  -*-  +  ***  +  *  +  +*  +  -*-*'******-1lr  +  ** 

PROCEDURE  getorder 
DO  vieworde 
DO  dispord 
statusvar=2 


* 


* 


4 


*< 
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* 


* 


p 


+  |  +  *****  +  ********■*•  +  *******  +  ■*■*****  +  +  ******  +  *  +  ■*•  +  *  +  ****  +  *■***  +  *+  ****  +  *•*»  +  +  - 
*  ! 

*!  Procedure:  DISPORD 

*  ! 

*  !  Called  by:  CREATEO 

*  !  :  GETORDER 

*  ! 

★  f  *^*  +  ±  +  +  +  +  +  +  *  +  +  +-k+  +  +  +  +  -k  +  -k-k  +  -k-k-k'k-k-k-k-k-k'k'k'k-k'kjr-k'k-)r-ie-ir-ir-k'kiir'kir'k-k-k'k-k-tr-ie-k’k'ji:-k-k'k'k-i'-k+: 


{procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 


PROCEDURE  dispord 

@  17,2  TO  17,78 

@  19,2  SAY  "Order  Number:  " 

@  ROW ( ) , COL ( )  SAY  NUMBER 
@  21,2  SAY  "  Order  Name:  " 

@  ROW ( ) , COL ( )  SAY  name 

★  [  '^•h'k'k’k'k-k-ir^-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k'k-k-k-ie’k^t’k'k-k-k-k'k-ir-k-k'ir-k-k-k-k-k-k-k-k-k-k-k-ie-k-ir-k-te-iir-if-k-k-ir-ir-ir-k-k-k-k-tr-k 

*  ! 

*!  Procedure:  DISPORD2 

*  ! 

*!  Called  by:  VIEWORDE  (procedure  in  CREATEOR. PRG) 

*!  :  ORDT_PRO  (procedure  in  EDITORDE . PRG) 

*!  :  GETORDER  (procedure  in  EDITORDE . PRG) 

*  | 

★I********************************************************************* 

PROCEDURE  dispord2 
@  1,2  SAY  "Order  Number:  " 

@  ROW ( ) , COL { )  SAY  NUMBER 
@  2,2  SAY  "  Order  Name:  " 

@  ROW ( ) , COL ( )  SAY  name 
@  3,2  SAY  "Description:  " 

@  ROW ( ) ,  COL()  SAY  descriptio 
@  4,2  SAY  "Number  of  Phases:  " 

@  ROW  ( )  ,  COLO  SAY  LTRIM(STR  (phases)  ) 

*  CASE  BAR  ()=2 

*  ;  ********  +  *  +  *************.*********.**  +  ********************  +  ************ 


*  ! 

★  f 

*  ! 

Procedure : 

VIEWORDE 

★  f 

Called  by: 

ORDS  PRO 

(procedure 

in 

CREATEOR. PRG) 

*  ! 

ORDT  PRO 

(procedure 

in 

EDITORDE. PRG) 

*  ! 

★  ! 

GETORDER 

(procedure 

in 

EDITORDE. PRG) 

★  I 

Calls : 

SETBROWS . PRG 

*  ! 

ENDBROWS . PRG 

★  f 

DISPORD2 

(procedure 

in 

CREATEOR. PRG) 

*  ! 

★  f 

DISPORD3 

(procedure 

in 

ORDEREP1 . PRG) 

PROCEDURE  vieworde 
SELECT  3 

*  Make  sure  there  are  some  records  to  view 
IF  RECCOUNT ( ) =0 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "You  must  have  at" 

@2,2  SAY  "least  one  Order!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 
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END IF  ( RECCOUNT ( ) =0 ) 

ACTIVATE  WINDOW  browser 
GO  TOP 

*  SET  MESSAGE  TO  "Choose  an  Order  to  View" 

DO  setbrows 

BROWSE  NOMENU  NOEDIT  NOAPPEND  NODELETE  FIELDS  NUMBER, name,  descriptio  FREEZE 
name  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 

SET  CURSOR  OFF 

CLEAR 

DO  WHILE  LASTKEY { ) <>23  < 

DO  dispord2 
IF  RECCOUNT ()=1 

@  23,30  SAY  "Crtl-W  when  Done" 

ELSE 

@  23,15  SAY  "Page-Up  or  Page-Down  to  View,  Ctrl-W  when  Done"  * 

ENDIF  (RECCOUNT ()=1) 

IF  LASTKEY ()=3 
SKIP 
IF  EOF ( ) 

GO  TOP 

ENDIF  ( EOF ( ) ) 

ENDIF  (LASTKEY  0=3) 

IF  LASTKEY ()=18 
SKIP  -1 
IF  BOF ( ) 

GO  BOTTOM 
ENDIF  (BOF ( ) ) 

ENDIF  ( LASTKEY ( ) = 1 8 ) 

WAIT  "" 

ENDDO  (LASTKEY  ()  023) 

SET  CURSOR  ON 
SET  MESSAGE  TO 
RETURN 

*:  EOF:  DELORDE . PRG 


* 
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* 


p 


Procedure  file:  D:\SURE\DELPROF.PRG 

Procs  &  Fncts:  DELP_PRO 
:  ENDDELP 
:  DELPRO 
:  SELECTPRO 


Set  by:  PROF_PRO 

Calls:  STARTED 
:  DELP_PRO 

Documented  04/16/94  at  11:01 


(procedure  in  SURE.PRG) 

(procedure  in  DELUWIT.PRG) 
(procedure  in  DELPROF.PRG) 


SNAP!  version  5.00 


*delprof .prg 

STORE  PROGRAM ()  TO  progvar 
*  PRIVATE  Variables 


CLEAR 

STORE  0  TO  countvar 
STORE  SPACE (60)  TO  namevar 
STORE  SPACE (60)  TO  profilevar 
STORE  1  TO  statusvar 
STORE  "NO  "  TO  yesnovar 
SET  PROCEDURE  TO  instprof 
DO  started 
IF  BOFO 

ACTIVATE  WINDOW  small 
?  CHR ( 1 ) 

@1,2  SAY  "No  Profiles  Exist" 

@2,2  SAY  "Press  any  key..." 

WAIT 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (BOF() ) 

SET  MESSAGE  TO  "Select  Parameter  Set  to  Delete" 

DEFINE  POPUP  delp_pop  FROM  1,5 

DEFINE  BAR  1  OF  delpjpop  PROMPT  "Select  Parameter  Set" 

DEFINE  BAR  2  OF  delpjpop  PROMPT  "Delete  Parameter  Set" 

DEFINE  BAR  3  OF  delp_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  delp_pop  DO  delp_pro 

ON  BAR  1  OF  delpjpop  DO  delp_barl 
ON  BAR  2  OF  delpjpop  DO  delp_bar2 
ON  BAR  3  OF  delp_pop  DO  delp_bar3 
DO  WHILE  PROMPT ()<>" Return  to  Main  Menu" 

ACTIVATE  POPUP  delpjpop 
ENDDO  (PROMPT () <>"Return  to  Main  Menu") 


★  I 

*  ! 

★  i 

Procedure: 

DELP_PRO 

★  ! 

*  ! 

Called  by: 

DELPROF.PRG 

*  t 

Calls : 

SELECTPRO 

( procedure 

in 

DELPROF. PRG) 

*  ! 

DELPRO 

(procedure 

in 

DELPROF.PRG) 

★  ; 

★  t 

ENDDELP 

(procedure 

in 

DELPROF.PRG) 

PROCEDURE  delp_pro 
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DO  CASE 
CASE  BAR ()=1 
DO  selectpro 
CASE  BAR  ()=2 
DO  delpro 
CASE  BAR ()=3 
DO  enddelp 
ENDCASE 

*  BAR  ()=3 

*  !  ***  +  +  *******  +  **  +  *  +  ****-*-*.  +  +  *****  +  *  +  +  *i,  +  **  +  *****.**jr<.*i.lt  +  i.  +  +  +  +  +  +  jri.vi,ik.  +  +  + 

*  ! 

*!  Procedure:  ENDDELP 

*  ! 

* !  Called  by:  DELP_PRO  (procedure  in  DELPROF. PRG) 

*  ! 


*t  *  +  ****  +  **  +  **  +  ******  +  +  +  -*  +  ******-v***+****.*.****  +  +  ******  +  **  +  **.*Jr*  +  *  +  i.  +  +  i.<. 

PROCEDURE  enddelp 
CLOSE  DATA 
DEACTIVATE  POPUP 
CLEAR 
RETURN 

*  !  +  +  +  +  +  +  +  ■*'*  +  +  ±  +  *■±  +  +  +  +  +  +  +  *  +  ++■•*■  +  +  -**■±  +  +  *+  *■•*  +  +  +  ±  +  +  **■  +  +  +  +■■*  +  +  +  ±  +  +  +■  +  +  ±  +  +■  +  +■*4:  +  + 

*  ! 

*!  Procedure:  DELPRO 

*  ! 

*!  Called  by:  DELP_PRO  (procedure  in  DELPROF. PRG) 

★  l*****************-*********************^**************^.****^.*^^^^^^^.^.^ 

PROCEDURE  delpro 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "Select  a  Parameter  Set  first!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
CLEAR 
ELSE 

STORE  "NO  "  TO  yesnovar 
ACTIVATE  WINDOW  small 

@1,1  SAY  "Enter  YES  to  Delete  Parameter  Set  " 

@  ROW  ( ) ,  COLO  GET  yesnovar  PICTURE  "!!!" 

READ 

IF  yesnovar="YES" 

STORE  cprofile->profilenam  TO  nameva 

*  check  to  make  sure  this  Profile  is  not  used  in  any  task  organizations' 
SELECT  18 

SET  ORDER  TO  profilenara 
GO  TOP 


SEEK  nameva 
IF  FOUND () 

DEACTIVATE  WINDOW  small 
ACTIVATE  WINDOW  process 
?  CHR ( 7 ) 

CLEAR 

@  1,1  SAY  "Cannot  Delete!  Parameter  Set  is” 

@  2,1  SAY  "used  by  Order  number:  "+ordertas->number 
@3,1  SAY  "You  must  remove  it  from  the  order" 

@4,1  SAY  "before  it  can  be  deleted." 

WAIT 


f 


f 


4 
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» 


DEACTIVATE  WINDOW  process 
SELECT  4 
ELSE 

SELECT  4 
GO  TOP 

DELETE  FOR  prof ilenam=nameva 

PACK 

CLEAR 

@  2,5  SAY  "Deleted!  Press  any  key..." 
WAIT  "" 

DEACTIVATE  WINDOW  small 
CLEAR 
SELECT  4 
ENDIF  (FOUNDO) 

ELSE 

CLEAR 

0  2,5  SAY  "NOT  Deleted!  Press  any  key...” 
WAIT  "" 

ENDIF  ( yesnovar="YES " ) 

ENDIF  (statusvar=l ) 

DEACTIVATE  WINDOW  small 

★  J 

★  f 

Procedure:  STARTED 


★  f 

★  } 

*  f 

★  { 

★  ! 

*  ! 

★  j 

★  I 

★  ! 

*  | 

★  j 

★  f 

★  \ 

*  ! 

★  ! 

★  I 

★  ! 

*  ! 

* ! 

*  ! 

★  ! 

-*•  i  +  +  *  +  +  ★  +  +  + 

PROCEDURE  started 
CLEAR 

DO  starthlp 

SELECT  18 

USE  ordertas 

SET  ORDER  TO  profilenam 

SELECT  4 

USE  cprofile 

SET  ORDER  TO  profilenam 

★  !+  ★**★•*■★*★★**★*******  +  +  **.*.******.**.*.*.*.****  a.***.*.**.*.*  +  ★★*  +  +  *■*.*  ***★★*  ***** 

★  j 

*!  Procedure:  SELECTPRO 

* ! 

★  ! 

*  t 


Called  by:  DELUNIT . PRG 
:  EDITTASK. PRG 
:  DELTASK. PRG 
:  DELPROF. PRG 

Calls:  STARTHLP. PRG 

Uses:  CSRCLIST. DBF 
:  CSRCLINQ. DBF 
:  TASKORG . DBF 
:  ORDERTAS. DBF 
:  CPROFILE. DBF 

MDX  files:  CSRCLIST. MDX 
:  CSRCLINQ. MDX 
:  TASKORG. MDX 
:  ORDERTAS. MDX 
:  CPROFILE. MDX 


Called  by:  DELP  PRO 


(procedure  in  DELPROF. PRG) 
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(procedure  in  CREATEPR. PRG) 


Calls:  SETBROWS . PRG 
:  ENDBROWS . PRG 
:  DISPPROF 


*  i  ***  +  *  +  *  +  ■*•*■****■*■**■*  +  ***  +  +  +  +  *****  +  *************************.************ 

PROCEDURE  selectpro 
SELECT  4 

SET  ORDER  TO  profilenam 
GO  TOP 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  NOMENU  NOEDIT  NODELETE  NOAPPEND  FIELDS  profilenam 
DO  endbrows 

STORE  profilenam  TO  fieldvar 
DEACTIVATE  WINDOW  browser 
SET  MESSAGE  TO 
statusvar=2 
DO  dispprof 

*  Display  record  information 

+  \  *+*  +  +  **  +  *  +  +  *  +  +  +*+  +  *  +  +  +  +■+  +  *  +  +  +  *■  +  +  +  +  +  +  +  +  +  +  +  +  +  +  *■  +  +  **+■+*  +  *  +  +  +  +  +  +  +  +  +  *  +  +  ■)'  +  + 

*  ! 


*  | 
★  | 


Procedure:  DISPPROF 


* !  Called 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

+  i 
*  i 


by:  NEWPROFI 
:  VIEWPROF 
:  SELEPROF 
:  CHANGEAP 
:  CHANGEAC 
:  CHANGEI 
:  CHANGEI F 
:  CHANGECI 
:  CHANGEH2 
:  CHANGEME 
:  SELECTPRO 
:  FINDPRO 


(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 


CREATEPR. PRG) 
CREATEPR. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
DELPROF. PRG) 
CREATEOR. PRG) 


*1*  +  **  +  *****  +  +  +  +  **++  +  ***  +  **  +  *  +  *****.*+*.  +  **.******  +  ************.*.*,^.*****.^ 

PROCEDURE  dispprof 
SELECT  2 
@  16,1  TO  16,78 

@  18,5  SAY  "Profile:  "+cprofile->prof ilenam 


*:  EOF:  DELPROF. PRG 


¥ 


¥ 


¥ 


*■ 
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-*■  • 


★  . 

■Ar  • 

Procedure  file: 

D:\SURE\DELTASK. PRG 

it  • 

Procs  &  Fncts: 

DELT  PRO 

★  ■ 

: 

ENDDELT 

ir  m 

★  • 

■ 

DELTAS 

★  • 

★  • 

Set  by: 

TASK_PRO 

€ 

Calls : 

STARTED 

★  • 

; 

DELT  PRO 

(procedure  in  SURE.PRG) 

(procedure  in  DELUNIT.PRG) 
(procedure  in  DELTASK.PRG) 

SNAP!  version  5.00 


★  • 

*:  Documented  04/16/94  at  11:01 


*edittask.prg 

STORE  PROGRAM ()  TO  progvar 
*  PRIVATE  Variables 


CLEAR 

STORE  0  TO  countvar 
STORE  SPACE (60)  TO  namevar 
STORE  SPACE (60)  TO  unitvar 
STORE  1  TO  statusvar 
STORE  "NO  "  TO  yesnovar 
SET  PROCEDURE  TO  insttask 
DO  started 
IF  BOF ( ) 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "No  Task  Organizations  Exist" 

@  2,2  SAY  "Press  Return  to  continue..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (BOF ( ) ) 

SET  MESSAGE  TO  "Select  Task  Force  to  Delete" 

DEFINE  POPUP  deltjpop  FROM  1,5 

DEFINE  BAR  1  OF  delt_pop  PROMPT  "Select  Task  Organization" 

DEFINE  BAR  2  OF  delt_pop  PROMPT  "Delete  Task  Organization" 

DEFINE  BAR  3  OF  deltjpop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  deltjpop  DO  delt_pro 

ON  BAR  1  OF  delt_pop  DO  delt_barl 
ON  BAR  2  OF  delt_pop  DO  delt_bar2 
ON  BAR  3  OF  delt_pop  DO  delt_bar3 
DO  WHILE  PROMPT ()<> "Return  to  Main  Menu" 

ACTIVATE  POPUP  delt_pop 
ENDDO  (PROMPT () <>"Return  to  Main  Menu") 

★  i+ir-k  +  -kir-k-k  +  -ir+"kir-k  +  irieir'*'kir-lr-kie’kieir-kiririe'ir-kirir-iriririririfkir'kiririririririeirit-k-k'kirie-kir4ririririeic  +  ir-k 


*  ! 

★  ! 

Procedure: 

DELT_PRO 

★  J 
* ! 

Called  by: 

DELTASK.PRG 

★  j 

*  ! 

Calls: 

FINDTA 

*  ! 

DELTAS 

★  l 

ENDDELT 

*  ! 

(procedure  in  CREATETC . PRG) 
(procedure  in  DELTASK.PRG) 
(procedure  in  DELTASK.PRG) 


PROCEDURE  delt_pro 
DO  CASE 
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CASE  BAR { ) =1 
DO  findta 
CASE  BAR{) =2 
DO  deltas 
CASE  BAR ()=3 
DO  enddelt 
ENDCASE 

*  BAR <)=1 

*  Select  Task  Organization 


1 

*  1 
★  ! 

Procedure: 

FINDTA 

*  ! 

Called  by: 

EDITTASK 

*  ! 

COPT  PRO 

★  » 

EDIT  PRO 

★  j 

★  | 

DELT_PRO 

★  | 

Calls : 

SETBROWS 

*  ! 

ENDBROWS 

*  ! 

*  ! 

DISPTASK 

(procedure  in  CREATETC . PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  DELTASK . PRG) 


(procedure  in  CREATETA. PRG) 

PROCEDURE  findta 
SELECT  1 

SET  ORDER  TO  uniqueta  &&  only  view  each  task  order  name  once 

GO  TOP 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  FIELDS  taskorgnam  NOMENU  NOEDIT  NOAPPEND  NODELETE  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
STORE  taskorgnam  TO  namevar 
DO  disptask 

SET  ORDER  TO  taskorgnam 
statusvar=2 

*  BAR  ()=3 

*1+**  +  *****  +  ***  +  *  +  +  +  ***********.**.*.**..*.**.*.**.*.************^.*.***^.^.^.^^ 

*  ! 

*!  Procedure:  ENDDELT 

* ! 

* ! 

*  ! 

+  (**  +  +  *  +  +  *  +  ***  +  ***.***  +  *************  +  ***  +  **#  +  +  +  4iv  +  i.  +  +  i.:lrili.  +  +  +  +  5l.ifc.ilt  +  +  +  +  ilr  +  +  > 
PROCEDURE  enddelt 
CLOSE  DATA 
DEACTIVATE  POPUP 
CLEAR 
RETURN 

*\+  +  *  +  **  +  *  +  +  +  +  *  +  +  +  +  +  *-it  +  +  -kir*  +  -k  +  ir  +  -Hr-k-i'  +  -k  +  -k  +  +  +  -*r  +  +  +  +  -k-k+-ir  +  -irir  +  -ift'+  +  -k*  +  +  +  ir-k  +  ir-k  + 

*  ! 

* !  Procedure :  DELTAS 

*  ! 

*  ! 

*  ! 

*  !  *****■***  +  +  ***★***  +  +  +  +  ★*■*******  +  ***■★★*•*****  +  *  +  -*..*.*.*■************.*.***.**.*.* 
PROCEDURE  deltas 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 


Called  by:  DELT  PRO 


(procedure  in  DELTASK. PRG) 


Called  by:  DELT  PRO 


(procedure  in  DELTASK. PRG) 


f 


4 


1 
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> 


¥ 


t 


-» 


@  1,2  SAY  "You  must  select  an  Task  Organization  first!" 
@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
CLEAR 
ELSE 

STORE  "NO  "  TO  yesnovar 
ACTIVATE  WINDOW  small 

@  1,1  SAY  "Enter  YES  to  Delete  this  Task" 

@2,1  SAY  "Organization  " 

0  ROW  ( )  ,  COLO  GET  yesnovar  PICTURE  "!!!" 

READ 


IF  yesnovar="YES" 

STORE  taskorgnam  TO  nameva 

*  check  to  make  sure  this  task  organzation  is  not  used  in  any  orders 
SELECT  18 

SET  ORDER  TO  taskorgnam 
GO  TOP 
SEEK  nameva 


IF  FOUND ( ) 

?  CHR ( 7 ) 

CLEAR 

@1,1  SAY  "Cannot  Delete!  Task  Organization  is" 

@2,1  SAY  "used  by  Order  Number  "+ordertas->number 
@3,1  SAY  "You  must  remove  it  from  the  order" 

@  4,1  SAY  "before  it  can  be  deleted." 

WAIT 
SELECT  1 
ELSE 

SELECT  1 
GO  TOP 

DELETE  FOR  taskorgnam=nameva 

PACK 

CLEAR 

0  2,5  SAY  "Deleted!  Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
CLEAR 

ENDIF  ( FOUND ()) 

ELSE 

CLEAR 

0  2,5  SAY  "NOT  Deleted!  Press  any  key..." 

WAIT  "" 

ENDIF  (yesnovar="YES") 

ENDIF  (statusvar=l) 

DEACTIVATE  WINDOW  small 

*  !  ******★****’★*★*★★**  +  ★*  +  ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★•A-******-**.**.***.*.*. 


*  ! 

★  f 

Procedure: 

STARTED 

★  | 

*  ! 

Called  by: 

DELUNIT . PRG 

*  ! 

EDITTASK. PRG 

*  ! 

DELTASK. PRG 

*  ! 

DELPROF. PRG 

+  | 

*  ! 

Calls: 

STARTHLP .  PRG 

*  ! 

*  ! 

Uses : 

CSRCLIST . DBF 

*  ! 

CSRCLINQ. DBF 

★  f 

TASKORG. DBF 
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*  !  :  ORDERTAS . DBF 

*!  :  CPROFILE . DBF 

*  ! 

* !  MDX  files:  CSRCLIST.MDX 

*  !  :  CSRCLINQ . MDX 

*  !  :  TASKORG.MDX 

*!  :  ORDERTAS. MDX 

*!  :  CPROFILE. MDX 

*  ! 

+  ;+  **********  +  ****  +  *  +  +  *  +  ***.*.*  +  **  +  *  +  ******jr**  +  *  +  *  +  ****  +  +  i.i.*  +  **  +  +  +  +  +.*  +  +  i.+ 

PROCEDURE  started 
DO  starthlp 
SELECT  18 
USE  ordertas 
CLEAR 
SELECT  2 
USE  csrclist 
SELECT  1 
USE  taskorg 

SET  ORDER  TO  taskorgnam 
*  ! 


(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETC. PRG) 
(procedure  in  CREATETC. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  EDITTASK. PRG) 

* !  ■***  +  **  +  ****  +  +  +++  +  *  +  ******  +  ***  +  **.**  +  *  +  *  +  *****  +  ************************ 
PROCEDURE  disptask 
8  17,2  TO  17,78 

8  21,2  SAY  "Task  Organization:  " 

8  ROW ( ) , COL ( )  SAY  namevar 

*:  EOF:  DELTASK. PRG 


*!  Procedure:  DISPTASK 

*  ! 

*!  Called  by:  NAMETA 

* !  :  ASSIGNUN 

*!  :  ASSIGNU2 

* !  :  FINDTA 

*!  :  ASSIGNNA 

* !  :  VIEWTASK 

*  !  :  VIEWTAS2 

*  !  :  UNASS I GU 

* !  :  UNASSIG2 


♦ 


4 


1 
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★ 


* 


* 


t 


-* 


k 


k 


Procedure  file:  D:\SURE\DELUNIT.PRG 


Procs  &  Fncts:  STARTED 
:  DELU_PRO 
:  ENDDELU 
:  DELUAS 

Set  by:  SRC_PRO  (procedure  in  SURE.PRG) 


* 

k 

k 


Calls:  STARTED 
:  DELU  PRO 


(procedure  in  DELUNIT.PRG) 
(procedure  in  DELUNIT.PRG) 


★ 

k 


Documented  04/16/94  at  11:01 


SNAP!  version  5.00 


*edittask.prg 

STORE  PROGRAM ()  TO  progvar 

*  PRIVATE  Variables  ' 

CLEAR 

STORE  0  TO  count var 
STORE  SPACE (60)  TO  namevar 
STORE  SPACE (60)  TO  unitvar 
STORE  1  TO  statusvar 
STORE  "NO  "  TO  yesnovar 
SET  PROCEDURE  TO  instunit 
DO  started 
IF  BOF ( ) 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "No  Units  Exist" 

@2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLOSE  DATA 

RETURN 

ENDIF  ( BOF ( ) ) 

SET  MESSAGE  TO  "Select  Unit  to  Delete" 

DEFINE  POPUP  delu_pop  FROM  1,5 

DEFINE  BAR  1  OF  delu_pop  PROMPT  "Select  Unit  -  Unit  Name  Order" 

DEFINE  BAR  2  OF  delu_pop  PROMPT  "Select  Unit  -  SRC  Order" 

DEFINE  BAR  3  OF  delu_pop  PROMPT  "Delete  Unit" 

DEFINE  BAR  4  OF  delu_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  delujpop  DO  delu_pro 
ON  BAR  1  OF  delu_pop  DO  delu_barl 
ON  BAR  2  OF  delu_pop  DO  delu_bar2 
ON  BAR  3  OF  delu_pop  DO  delu_bar3 
ON  BAR  4  OF  delu_j)op  DO  delu_bar4 
DO  WHILE  PROMPT () <>"Return  to  Main  Menu" 

ACTIVATE  POPUP  delu_pop 
ENDDO  ( PROMPT () <>"Return  to  Main  Menu") 

*  |  ***★***  +  +  ***  +  ***********  +  +  *  +  *■*•*  +  ***  +  *  +  +  +  +  **  +  +  +  A********************** 


★  1 
*  ! 

*  i 

Procedure: 

DELU_PRO 

*  ! 

★  I 

Called  by: 

DELUNIT.PRG 

★  i 

Calls: 

SELECTUNI 

(procedure 

in 

EDITUNIT . PRG) 

*  ! 

SELECTUN2 

(procedure 

in 

EDITUNIT , PRG) 

★  j 

DELUAS 

(procedure 

in 

DELUNIT.PRG) 
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*  ! 
★  t 


:  ENDDELU 


(procedure  in  DELUNIT . PRG) 


*■  f  ★  *•*•■**-*■*■■*■★*•*-★*■*■*■•*•■*• 

PROCEDURE  delu_pro 
DO  CASE 
CASE  BAR ()=1 
DO  selectuni 
CASE  BAR ()=2 
DO  selectun2 
CASE  BAR  0=3 
DO  deluas 
CASE  BAR  ()=4 
DO  enddelu 
ENDCASE 

*  BAR  ()=3 

■k  [**-**********-***** 

*  ! 

*!  Procedure: 

★  i 


ENDDELU 


*  !  Called  by:  DELU  PRO 

*  i  ‘ 


(procedure  in  DELUNIT. PRG) 


*  i  *  +  *-*■★  *  **  +  ********  +  *  +  **  +  *  +  ***-**  +  *  +  +  +  +  +  ***-*-*-*  +  *******-*  +  ***  +  -*.-*-  +  +  ******+.* 

PROCEDURE  enddelu 
CLOSE  DATA 
DEACTIVATE  POPUP 
CLEAR 
RETURN 

*j  *****************  +  **-***********  +  ********.**  +  ***.********  +  ***  +  +  ilk.*  +  +  lt  +  lt  + 

*  ! 

★  i 

*  ! 

*  ! 

★  f 


Procedure :  DELUAS 
Called  by:  DELU  PRO 


(procedure  in  DELUNIT. PRG) 


*i  *********  +  ***-***  +  +  +  *  +  **  +  **  +  +  ******-  +  +  *  +  ***>.***  +  ***********#**Alt*A  +  4.  +  +  # 

PROCEDURE  deluas 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  select  an  Unit  first!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
CLEAR 
ELSE 

STORE  "NO  "  TO  yesnovar 
ACTIVATE  WINDOW  small 

@1,1  SAY  "Enter  YES  to  Delete  this  Unit  " 

@  ROW  ( )  ,  COLO  GET  yesnovar  PICTURE  "!!'" 

READ 


IF  yesnovar="YES" 

STORE  unitname  TO  nameva 

*  check  to  make  sure  this  Unit  is  not  used  in  any  task  organizations' 
SELECT  1 

SET  ORDER  TO  unitname 
GO  TOP 
SEEK  nameva 
IF  FOUND () 

DEACTIVATE  WINDOW  small 
ACTIVATE  WINDOW  process 
?  CHR ( 7 ) 


4 


i 


«■ 
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CLEAR 

@1,1  SAY  "Cannot  Delete!  Unit  is" 

@2,1  SAY  "used  by  Task  Organization:  "+taskorg->taskorgnam 
@3,1  SAY  "You  must  remove  it  from  the  order" 

@4,1  SAY  "before  it  can  be  deleted." 

WAIT 

DEACTIVATE  WINDOW  process 
SELECT  2 
ELSE 

SELECT  2 
GO  TOP 

V  DELETE  FOR  unitname=nameva 

PACK 

SELECT  14 
GO  TOP 

DELETE  FOR  unitname=nameva 

PACK 

CLEAR 

0  2,5  SAY  "Deleted!  Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
CLEAR 
SELECT  2 
ENDIF  (FOUND!)) 

ELSE 

CLEAR 

@2,5  SAY  "NOT  Deleted!  Press  any  key..." 

WAIT  "" 

ENDIF  (yesnovar="YES" ) 

ENDIF  (statusvar=l) 

DEACTIVATE  WINDOW  small 

★i********************************************************************* 


*  ! 

★  ! 

★  j 

Procedure: 

STARTED 

★  f 

Called  by: 

DELUNIT . PRG 

★  ! 

EDITTASK. PRG 

★  ? 

DELTASK. PRG 

*  ! 

DELPROF. PRG 

★  f 

★  ] 

★  | 

Calls : 

STARTHLP . PRG 

*  ! 

Uses : 

CSRCLIST. DBF 

*! 

CSRCLINQ . DBF 

★  t 

TASKORG. DBF 

★  1 

ORDERTAS . DBF 

*  ! 

★  i 

CPROFILE . DBF 

★  j 

MDX  files: 

CSRCLIST. MDX 

*  ! 

CSRCLINQ. MDX 

*  ! 

TASKORG.  MDX 

★  j 

ORDERTAS. MDX 

★  ! 

CPROFILE. MDX 

*  i 

*  i  *  +  ★**  +  +  ***  +  +  *****  +  +  +  *  +  *****  +  *.*  +  +  +  ***.****  +  *******  +  *  *  ++****+++***++++** 

PROCEDURE  started 
CLEAR 

DO  starthlp 
SELECT  2 
USE  csrclist 
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SET  ORDER  TO  unitname 

SELECT  14 

USE  csrclinq 

SELECT  1 

USE  taskorg 

SET  ORDER  TO  unitname 

SELECT  2 

*  I********************************************************************* 
+  ! 


★  f 

Procedure: 

SELECTUNI 

*  ! 

*  j 

Called  by: 

EDIU  PRO 

*  ! 

*  ! 

DELU_PRO 

★  i 

Calls : 

SETBROWS . PRG 

*  ! 

ENDBROWS. PRG 

*  ! 

DISPUNIT 

★  j 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  DELUNIT . PRG) 


(procedure  in  CREATESR. PRG) 


PROCEDURE  selectuni 
SELECT  2 

SET  ORDER  TO  unitname 
GO  TOP 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  NOMENU  NOEDIT  NODELETE  NOAPPEND  FIELDS  src, unitname 
DO  endbrows 

STORE  unitname  TO  fieldvar 
DEACTIVATE  WINDOW  browser 
SET  MESSAGE  TO 
statusvar=2 
DO  dispunit 

*[**■*•  +  +  *  +  *********.  +  +  *■*.  +  *  +  **  +  *****.***  +  ***  +  **.*  +  **  +  ****  +  *  +  *****  +  +  **  +  ***  +  ** 


*  ! 

★  r 

★  j 

★  l 

Procedure: 

SELECTUN2 

Called  by: 

EDIU  PRO 

(procedure 

in 

EDITUNIT. PRG) 

*  ! 

★  r 

• 

DELU_PRO 

(procedure 

in 

DELUNIT. PRG) 

★  t 

Calls : 

SETBROWS . PRG 

*  ! 

ENDBROWS . PRG 

*  ! 

*  i 

DISPUNIT 

(procedure 

in 

CREATESR. PRG) 

+  !  ****•■*•**  +  *  +  *■*■***  +  **.(,  +  *  +  *****.  +  ******  +  ****++***.***  +  *  +  ***  +  +  **  +  *****  ++**** 
PROCEDURE  selectun2 
SELECT  2 

SET  ORDER  TO  unitname 
GO  TOP 

ACTIVATE  WINDOW  browser 

DO  setbrows 

SET  ORDER  TO  src 

BROWSE  NOMENU  NOEDIT  NODELETE  NOAPPEND  FIELDS  src, unitname 
SET  ORDER  TO  unitname 
DO  endbrows 

STORE  unitname  TO  fieldvar 
DEACTIVATE  WINDOW  browser 
SET  MESSAGE  TO 
statusvar=2 
DO  dispunit 

*  Display  record  information 


f 


* 
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* 


*  ! 

★  t 

Procedure 

DISPUNIT 

★  ! 

Called  by 

COPYSRC 

(procedure 

in 

CREATESR. PRG) 

*  ! 

COPYCSRC 

(procedure 

in 

CREATESR. PRG) 

★  t 

ADD DATA 

(procedure 

in 

CREATESR. PRG) 

★  1 

SELECTUNI 

(procedure 

in 

EDITUNIT. PRG) 

*  ! 

SELECTUN2 

(procedure 

in 

EDITUNIT . PRG) 

*  i 

CHANGELI 

(procedure 

in 

EDITUNIT. PRG) 

*  l 

ADDLINCA 

(procedure 

in 

EDITUNIT. PRG) 

*  ! 

DELLIN 

(procedure 

in 

EDITUNIT. PRG) 

*  ! 

CHANGEEH 

(procedure 

in 

EDITUNIT. PRG) 

*  ! 

EDITSTR 

(procedure 

in 

EDITUNIT. PRG) 

*  ! 

UN IT DATA 

(procedure 

in 

CUSTUNIT . PRG) 

PROCEDURE  dispunit 
SELECT  2 
@  16,1  TO  16,78 
@  18,5  SAY  "Unit:  "+unitname 

*:  EOF:  DELUNIT . PRG 
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*. ★-*•★★*-*■****  +  **★**★★*  +  *******★★*  +  *★**-*-★★*★★***-*•**■*-***-*■  ******  *********** 

+  ;  ' 

* :  Program:  D:\SURE\ECHELON.PRG 

•k  o 

*:  Called  by:  ADDDATA  (procedure  in  CREATESR. PRG) 

*5  :  UN IT DATA  (procedure  in  CUSTUNIT . PRG) 

■k  ■ 

*:  Documented  04/16/94  at  11:02  SNAP!  version  5.00 

*  l  *****kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk-kkkkkk-k-kkkkkkkk-k-k-k*kkkkkkkkk 

*  Echelon. prg  Attempts  to  assign  proper  echelon  to  unit 

DO  CASE 

CASE  RAT ( ”  CO  ",  UPPER (unitname)) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "  CO", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY” 

RETURN 

CASE  RAT ("COMPANY”, UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("Troop", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("TRP", UPPER ( uni tname ) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("BATTERY", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "BTRY", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "HHT", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("HHSC", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "HHS ",  UPPER (unitname)  ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("HHD", UPPER (uni tname ) )<>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("HB", UPPER ( unitname ) )<>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "HHC", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("BAND", UPPER (unitname) )<>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("ELEMENT", UPPER (unitname) )<>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("SECTION", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "SEC  ",  UPPER (unitname) ) <>0 
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REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("SEC,  ",  UPPER ( unitname ) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("PLATOON", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "PLT  ",  UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("PLT, ",  UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "TEAM" , UPPER ( unitname ) >  <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "TM  ",  UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("TM, ",  UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("COMMAND", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("UNIT", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "SQUAD”, UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("CTR", UPPER ( unitname ) ) <>0 
REPLACE  echelon  WITH  "COMPANY” 

RETURN 

CASE  RAT ( "DETACHMENT", UPPER (unitname ) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "DET  ",  UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "DET, ", UPPER (unitname ) )<>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("DETACH", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "ORGANIZATION", UPPER(unitname) )<>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ( "CSC", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "COMPANY" 

RETURN 

CASE  RAT ("BN",UPPER(unitname) ) <>0 
REPLACE  echelon  WITH  "BATTALION" 

RETURN 

CASE  RAT { "BATTALION", UPPER(unitname) ) <>0 
REPLACE  echelon  WITH  "BATTALION" 

RETURN 

CASE  RAT ("SQDN", UPPER (unitname) )<>0 


REPLACE  echelon  WITH  "BATTALION" 
RETURN 

CASE  RAT ( "SQUADRON", UPPER(unitname) ) <>0 
REPLACE  echelon  WITH  "BATTALION" 
RETURN 

CASE  RAT ("DIVISION", UPPER (unitname) }<>0 
REPLACE  echelon  WITH  "DIVISION" 
RETURN 

CASE  RAT ("DIV", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "DIVISION" 
RETURN 

CASE  RAT ("ACR", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "DIVISION" 
RETURN 

CASE  RAT ("REGIMENT", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "DIVISION" 
RETURN 

CASE  RAT ("HOSPITAL", UPPER (unitname) ) <>0 
REPLACE  echelon  WITH  "DIVISION" 
RETURN 
RETURN 

ENDCASE 

*:  EOF:  ECHELON. PRG 


* 
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Program:  D:\SURE\EDITHELP.PRG 
Called  by:  HELP  PRO  (procedure  in  SURE.PRG) 


Calls:  SET BROWS . PRG 
:  ENDBROWS . PRG 
:  MEMOPAGRO 


(function  in  MEMOPAGR . PRG) 


Documented  04/16/94  at  11:02  SNAP!  version  5.00 

-k-k  +  -k-k-k,jr'k-k-k'k’k-k-ir'k'te-k-fe'k'k‘ir’k'iir-ir'jeic4e-ic-ir-k--k-k’kmk'k-k-k-fr-k-Jr'k-k-k'k-k'k-kiir4r')e-Jr'k-k-k-k-k+r-ie'k')r’k-k-k'k'k-ii?-Jr  +  -tr 


*  helpndx.prg 
SELECT  39 

SET  ORDER  TO  subject 
GO  TOP 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  FIELDS  help->program, help->notes , help->sub ject 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
?  memopagr (help->notes, 1,1,22,78) 

@22,0  SAY  "  " 

SET  ORDER  TO  PROGRAM 
*:  EOF:  EDITHELP . PRG 


t 
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★ 


★ 


★ 


Procedure  file:  D:\SURE\EDITORDE.PRG 


Procs  &  Fncts :  STRE_PRO 
:  ORDT_PRO 
:  GETORDER 
:  EDITPLEN 
:  1STRALL 
:  1STRONE 
:  1STR1PRI 
:  PHASEBYS 
:  VIEWS  TP. 

Set  by:  ORDE  PRO 


(procedure  in  SURE.PRG) 


* 

★ 

* 


★ 


Calls:  STARTOR 
:  TOMP_PRO 
:  STRE_PRO 
:  ORDT  PRO 


(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE . PRG) 
(procedure  in  EDITORDE . PRG) 


★ 

★ 


Documented 


04/16/94  at  11:01  SNAP! 


version  5.00 


*  editorde.prg 

STORE  PROGRAM ()  TO  progvar 
SET  PROCEDURE  TO  instorde 
STORE  0  TO  number va 
STORE  0  TO  numberst 
STORE  SPACE(8)  TO  delnumbe 
STORE  SPACE (8)  TO  pnumberv 
STORE  SPACE (50)  TO  namevar 
STORE  1  TO  statusvar 
STORE  0  TO  nextpop 
STORE  SPACE (60)  TO  seekvar 
STORE  0  TO  diffvar 

*  Variable  used  to  add  to  taskorg  after  number  of  Phases  change  + 
STORE  SPACE (8)  TO  addnumva 

STORE  SPACE (60)  TO  tnameva 
STORE  0  TO  phaseva 
STORE  SPACE (20)  TO  pronamva 
STORE  100  TO  strengtv 
CLEAR 


DO  startor 

*  Popup  for  Mission  Profile/Task  Organization  assignment  choices 
DEFINE  POPUP  tomp_pop  FROM  1,3 
DEFINE  BAR  1  OF  tomp_pop  PROMPT  ; 

"Assign  one  Parameter  Set  to  all  Task  Organizations  and  Phases" 

DEFINE  BAR  2  OF  tomp_pop  PROMPT  ; 

"Assign  a  Parameter  Set  to  one  Task  Organization  for  all  Phases" 
DEFINE  BAR  3  OF  tomp_pop  PROMPT  ; 

"Assign  a  Parameter  Set  to  all  Task  Organizations  for  a  single  Phase" 
DEFINE  BAR  4  OF  tomp_pop  PROMPT  ; 

"Assign  Parameter  Sets  to  a  Task  Organization  Phase  by  Phase" 

DEFINE  BAR  5  OF  tomp_pop  PROMPT  ; 

"View  this  Orders  Task  Organizations  and  Parameter  Sets  by  Phase" 
DEFINE  BAR  6  OF  tomp_pop  PROMPT  "Return  to  Previous  Menu" 

ON  SELECTION  POPUP  tomp_pop  DO  tomp  pro 
ON  BAR  1  OF  tomp_pop  DO  tomp_barl  ~ 

ON  BAR  2  OF  tomp_pop  DO  tomp_bar2 
ON  BAR  3  OF  tomp_pop  DO  tomp_bar3 


¥ 


m 


* 


160 


ON  EAR  4  OF  tomp_pop  DO  tomp_bar4 

ON  BAR  5  OF  tomp_pop  d6  tomp_bar5 

ON  BAR  6  OF  tomp_pop  DO  tomp_bar6 

*  Popup  for  Strength  Percentages 

DEFINE  POPUP  stre_pop  FROM  1,3 
DEFINE  BAR  1  OF  stre_pop  PROMPT  ; 

"Assign  one  Strength  to  all  Task  Organizations  and  Phases  this  Order" 

DEFINE  BAR  2  OF  stre_pop  PROMPT  ; 

"Assign  a  Strength  to  one  Task  Organization  for  all  Phases  this  Order" 
DEFINE  BAR  3  OF  stre_pop  PROMPT  ; 

"Assign  a  Strength  to  all  Task  Organizations  for  a  single  Phase  this  Order” 
^  DEFINE  BAR  4  OF  stre_pop  PROMPT  ; 

"Assign  Strengths  to  a  Task  Organization  Phase  by  Phase  for  this  Order" 
DEFINE  BAR  5  OF  stre  pop  PROMPT  ; 

"View  this  Orders  Task  Organizations  and  Strengths  by  Phase" 

DEFINE  BAR  6  OF  stre_pop  PROMPT  "Return  to  Previous  Menu" 
v  ON  SELECTION  POPUP  stre  pop  DO  stre_pro 

ON  BAR  1  OF  stre_pop  DO  stre_barl 

ON  BAR  2  OF  stre_pop  DO  stre_bar2 

ON  BAR  3  OF  stre_pop  DO  stre  bar3 

ON  BAR  4  OF  stre_pop  DO  stre__bar4 

ON  BAR  5  OF  stre_pop  DO  stre_bar5 

ON  BAR  6  OF  stre_pop  DO  stre  bar6 

*  Main  Popup 

DEFINE  POPUP  ordt_pop  FROM  1,23 

DEFINE  BAR  1  OF  ordt_pop  PROMPT  "Get  Order" 

DEFINE  BAR  2  OF  ordt_pop  PROMPT  "View/Delete  Task  Organizations" 

DEFINE  BAR  3  OF  ordt_pop  PROMPT  "Assign  Task  Organizations" 

DEFINE  BAR  4  OF  ordt_pop  PROMPT  "Assign  Mission  Parameter  Sets  to  Task 
Organization  Phases" 

DEFINE  BAR  5  OF  ordtjpop  PROMPT  "Assign  Strength  Percentages  to  Task 
Organization  Phases" 

DEFINE  BAR  6  OF  ordt_pop  PROMPT  "Edit  Order  Description,  Phases,  and  Phase 
Lengths" 

DEFINE  BAR  7  OF  ordt_pop  PROMPT  "Save  and  Edit  Another" 

DEFINE  BAR  8  OF  ordt_pop  PROMPT  "Return  to  Main  Menu” 

ON  SELECTION  POPUP  ordt  pop  DO  ordt_pro 
ON  BAR  1  OF  ordt_pop  DO  ordt  barl 

ON  BAR  2  OF  ordt_pop  DO  ordt  bar2 

ON  BAR  3  OF  ordt_pop  DO  ordt  bar3 

ON  BAR  4  OF  ordt_pop  DO  ordt_bar4 

ON  BAR  5  OF  ordt_pop  DO  ordt  bar5 

ON  BAR  6  OF  ordt_pop  DO  ordt  bar6 

^  ON  BAR  7  OF  ordt_pop  DO  ordt  bar7 
ON  BAR  8  OF  ordt_pop  DO  ordt_bar8 
DO  WHILE  PROMPT () <>"Return  to  Main  Menu" 

ACTIVATE  POPUP  ordtjpop 
IF  nextpop=l 

.  ACTIVATE  POPUP  tomp_pop 

'  nextpop=0 

ACTIVATE  POPUP  ordtjpop 
ENDIF  (nextpop=l) 

IF  nextpop=2 
SELECT  18 

SET  FILTER  TO  ordertas->number=orderlst->number 
GO  TOP 

ACTIVATE  POPUP  strejpop 
nextpop=0 

ACTIVATE  POPUP  ordt_pop 
ENDIF  (nextpop=2) 
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ENDDO  (PROMPT () <>"Return  to  Main  Menu") 

*  t  *********■*■*•****  +  ********  +  *  +  ***■*•*+■  +  ***  +  +  *****  +  +  +  +  ***  +  *  +  +  **  +  **,•**■*  +  **  +  * 


★  1 

★  ! 

Procedure: 

0RDT_PR0 

★  j 

+  ! 

*  ! 

Called  by: 

EDITORDE 

★  | 

Calls : 

STARTOR 

★  j 

GETORDER 

*  ! 

t 

VIEWORDE 

★  t 

DISP0RD2 

+  ! 

ASSIGNTA 

*  ! 

EDITPLEN 

★  | 

ENDORDR 

*  t 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  CREATEOR. PRG) 


★j******************************************-*************************** 

PROCEDURE  ordt_pro 
DO  CASE 
CASE  BAR ()=1 

IF  statusvarol 
DO  startor 
ENDIF  (statusvarol) 

DO  getorder 
CASE  BAR ()=2 
DO  vieworde 
IF  status var=2 
DO  dispord2 
ENDIF  (statusvar=2) 

CASE  BAR ()=3 
DO  assignta 
IF  statusvar=2 
DO  dispord2 
ENDIF  (statusvar=2) 

CASE  BAR ()=4 

IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  select  an  Order  first!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
CLEAR 
ELSE 


nextpop=l 
DEACTIVATE  POPUP 
ENDIF  (statusvar=l) 

IF  statusvar=2 
DO  dispord2 
ENDIF  (statusvar=2) 

CASE  BAR  ()=5 

IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR (7) 

@  1,2  SAY  "You  must  select  an  Order  first!" 
@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
CLEAR 
ELSE 


nextpop=2 


4 


* 


* 
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DEACTIVATE  POPUP 
ENDIF  ( statusvar=l ) 
IF  statusvar=2 
DO  dispord2 
ENDIF  (statusvar=2 ) 
CASE  BAR ( ) =6 
DO  editplen 
IF  statusvar=2 
DO  dispord2 
ENDIF  (statusvar=2) 
CASE  BAR ()=7 
DO  startor 
IF  statusvar=2 
DO  dispord2 
ENDIF  (statusvar=2) 
CASE  BAR ()=8 
DO  endordr 


ENDCASE 

*  CASE  BAR ( ) =1 


★  I 

*  ! 
*  ! 

★  I 

*  ! 
*  ! 

*  t 

★  » 

★  i 
★ » 

*  ! 

★  t 

★  j 

★  ! 
★  » 

★  | 
★  f 


Procedure:  GETORDER 

Called  by:  ORDT_PRO 
:  DORD_PRO 
:  ORDR  PRO 


Calls 


SETBROWS . PRG 
ENDBROWS . PRG 
DISP0RD2 
VIEWORDE 
DISPORD 
DISP0RD3 
CALCPOL .  PRG 
CAICAMMO . PRG 
CALCOTHE . PRG 


(procedure  in  EDITORDE. PRG) 
(procedure  in  DELORDE.PRG) 
(procedure  in  0RDEREP1 . PRG) 


(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  ORDEREP1 . PRG) 


PROCEDURE  getorder 
SELECT  3 

*  Make  sure  there  are  some  records  to  view 
IF  RECCOUNT ( ) =0 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  have  at" 

0  2,2  SAY  "least  one  Order!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (RECCOUNT  0=0) 

ACTIVATE  WINDOW  browser 
GO  TOP 
DO  setbrows 

BROWSE  NOMENU  NOEDIT  NOAPPEND  NODELETE  FIELDS  NUMBER, name,  descriptio  FREEZE 
name  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
SET  CURSOR  OFF 
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CLEAR 

DO  WHILE  LASTKEY ( ) <>23 
DO  dispord2 
IF  RECCOUNT ( ) =1 

@  23,30  SAY  "Crtl-W  when  Done" 
ELSE 


@  23,15  SAY  "Page-Up  or  Page-Down  to  View,  Ctrl-W  when  Done" 
ENDIF  (RECCOUNT () =1) 

IF  LASTKEY ()=3 
SKIP 
IF  EOF ( ) 

GO  TOP 

ENDIF  (EOF ( ) ) 

ENDIF  ( LASTKEY () =3 ) 

IF  LASTKEY ()=1 8 
SKIP  -1 
IF  BOF ( ) 

GO  BOTTOM 
ENDIF  (BOF ( ) ) 

ENDIF  ( LASTKEY () =18) 

WAIT  "" 

ENDDO  ( LASTKEY  O  023) 

SET  CURSOR  ON 
SET  MESSAGE  TO 
DO  dispord2 
statusvar=2 

*  Restrict  ordertas.dbf  to  records  in  this  Order 
SELECT  18 
SET  ORDER  TO 


SET  FILTER  TO  NUMBER=orderlst->number 
GO  TOP 

*  CASE  BAR ()=2 


*  \ 

*  l 

Procedure: 

VIEWORDE 

★  ! 

★  f 

Called  by: 

ORDS  PRO 

★  1 

ORDT  PRO 

* ! 

GETORDER 

★  f 

*  ! 

Calls : 

SETBROWS . PRG 

★  t 

ENDBROWS . PRG 

★  i 

DISP0RD2 

*  ! 

DISPORD3 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE. PRG) 


(procedure  in  CREATEOR. PRG) 
(procedure  in  0RDEREP1 . PRG) 


*  ! 

*  !  +  +  ***  +  ****  +  *  +  *  +  **  +  **-*r  +  *  +  +  +  *  +  +  *  +  **++*-*  +  *******  +  +  *^*  +  ***  +  *  +  *  +  +  +  1t^  +  +  +  1fc.  +  ^ 

PROCEDURE  vieworde 


IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  choose  an  Order  first!" 
@  3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (statusvar=l) 

*  Restrict  view  to  Task  Orgs  in  this  Order 
SELECT  18 


REPLACE  ALL  changestat  WITH  .n.  FOR  changestat 
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SET  FILTER  TO  NUMBER=orderlst->number 
GO  TOP 

*  Make  sure  there  are  some  records  to  view 
IF  EOF ( ) 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  have  at" 

@  2,2  SAY  "least  one  Task  Org ! " 

@  3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (EOF ( ) ) 

SET  ORDER  TO  uniqueta 
ACTIVATE  WINDOW  browser 
GO  TOP 

SET  MESSAGE  TO  "Enter  Y  to  Delete  Task  Organization  from  this  order,  CRTL-W 
when  done." 


REPLACE  ALL  changestat  WITH  . F.  FOR  changestat 

GO  TOP 

BROWSE  NOMENU  NOAPPEND  NODELETE  FIELDS  changestat, taskorgnam  FREEZE  changestat 

COMPRESS 

*  Need  to  Delete  from  ordertas.dbf  too! 

SET  FILTER  TO  changestat 

GO  TOP 

IF  .NOT.  EOF ( ) 

SET  FILTER  TO 
SET  ORDER  TO 
GO  TOP 
DO  WHILE  .T. 

GO  TOP 

LOCATE  FOR  changestat  -AND.  .NOT.  DELETED ( ) 

IF  .NOT.  FOUND () 

EXIT 

ENDIF  (.NOT.  FOUND! )) 
namevar=taskorgnam 
del numb e=NUMBER 

DELETE  FOR  NUMBER=delnumbe  .AND.  taskorgnam=namevar 
ENDDO  ( . T . ) 

SET  FILTER  TO 
PACK 

ENDIF  (.NOT.  EOF ( ) ) 

SET  FILTER  TO 

SET  ORDER  TO  taskorgnam 

DEACTIVATE  WINDOW  browser 

CLEAR 

SET  MESSAGE  TO 

*  CASE  BAR ()=3 

★t********************************************************************* 


★  ! 

★  f 

Procedure : 

ASSIGNTA 

★  1 

*  ! 

Called  by: 

ORDS  PRO 

★  t 

: 

ORDT_PRO 

*  ! 

★  | 

Uses : 

TTEMP . DBF 

★  t 

2 

TEMP. DBF 

★  f 

★I**************************. 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
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PROCEDURE  assignta 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR { 7 ) 

@1,2  SAY  "You  must  choose  an  Order  first!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (statusvar=l) 

*  Select  Task  Organizations  for  this  Order 

*  Make  sure  order  has  1  or  more  phases 
SELECT  3 

IF  phases=0 

ACTIVATE  WINDOW  small 
?  CHR (7) 

@1,1  SAY  "Order  has  ZERO  phases, you  will  have  to" 

@  2,1  SAY  "add  some  from  the  Edit'  Order  Screen." 

@3,3  SAY  "Press  any  key...” 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (phases=0) 

STORE  phases  TO  phasevar 

*  prepare  taskorg  so  user  can  only  add  task  forces  not  part  of  the  order 
SELECT  1 

SET  ORDER  TO  taskorgnam 
REPLACE  ALL  changestat  WITH  .n. 

GO  TOP 

REPLACE  ALL  changesta2  WITH  .n. 

GO  TOP 
SELECT  18 
GO  TOP 

DO  WHILE  .NOT.  EOF() 

seekvar=ordertas->taskorgnam 
SELECT  1 
SEEK  seekvar 
IF  FOUND {) 

REPLACE  changestat  WITH  .y. 

ELSE 

GO  TOP 

ENDIF  ( FOUND ( ) ) 

SELECT  18 
SKIP 

ENDDO  ( . NOT .  EOF { ) ) 

GO  TOP 
SELECT  1 

SET  FILTER  TO  .NOT.  changestat 

*  User  should  only  see  each  Task  Org  name  listed  once 
SET  ORDER  TO  uniqueta 

SET  MESSAGE  TO  "Enter  Y  for  each  Task  Organization  in  this  Order.  Ctrl-W  when 
Done" 

ACTIVATE  WINDOW  browser 
GO  TOP 

BROWSE  NOAPPEND  NODELETE  NOMENU  FIELDS  changesta2,  taskorgnam  FREEZE  changesta2 
COMPRESS 

DEACTIVATE  WINDOW  browser 
SET  FILTER  TO 


SET  ORDER  TO  taskorgnam 
LOCATE  FOR  changesta2 
IF  FOUND () 

*  Mark  all  changestat  for  selected  Task  Orgs 
COPY  TO  ttemp  FOR  changesta2 

SELECT  15 
USE  ttemp 

DO  WHILE  .NOT.  EOF{) 

SELECT  1 

REPLACE  ALL  changestat  WITH  .T.  FOR  taskorg->taskorgnam=ttemp->taskorgnam 
GO  TOP 

*  SELECT  15 
SKIP 

ENDDO  (.NOT.  EOF()) 

SELECT  15 
USE 

*  SELECT  1 

COPY  TO  ttemp  FOR  changestat  .AND.  changesta2 
SELECT  18 

COPY  STRUCTURE  TO  temp 

*  Create  one  record  for  each  Task  Organization  for  each  Phase  of  the  Order 
SELECT  11 

USE  temp 

STORE  1  TO  countvar 

SET  MESSAGE  TO  "Please  wait,  working..." 

DO  WHILE  .T. 

APPEND  FROM  ttemp 

REPLACE  ALL  phase  WITH  countvar  FOR  phase=0 
countvar=countvar+l 
IF  countvar>phasevar 
EXIT 

ENDIF  (countvar>phasevar) 

ENDDO  ( . T . ) 

REPLACE  ALL  NUMBER  WITH  orderlst->number 

*  Initialize  Task  Orgs  for  this  order  at  100  % 

REPLACE  ALL  strength  WITH  100 

SELECT  11 
USE 

SELECT  18 
APPEND  FROM  temp 
SELECT  1 

REPLACE  ALL  changestat  WITH  .F.  FOR  changestat 
SET  MESSAGE  TO 

*  ENDIF  (FOUNDO) 

KEYBOARD  " { DNARROW } " 

*  CASE  BAR ()=4 

+!+★★**★★***★★★*★+***★****★+****★★★+★*★*★**★★**★★★★**★★★★★*★★++★+★★*+** 

★  ! 

*  *!  Procedure:  ENDORDR 

*  ! 

*!  Called  by:  ORDS_PRO  (procedure  in  CREATEOR. PRG) 

*!  :  ORDT_PRO  (procedure  in  EDITORDE. PRG) 

*  ! 

♦I********************************************************************* 

PROCEDURE  endordr 
SELECT  18 

SET  ORDER  TO  profilenam 
SEEK  "  " 

IF  FOUNDO 

STORE  "YES"  TO  yesnovar 
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ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,1  SAY  "You  have  not  assigned  Parameter  Sets  to" 

@  2,1  SAY  "all  units.  Cancel  exit?  " 

@  ROW ( ) , COL ( )  GET  yesnovar 
READ 

IF  yesnovar="YES" 

DEACTIVATE  WINDOW  small 
RETURN 
ELSE 

DEACTIVATE  WINDOW  small 
ENDIF  (yesnovar="YES" ) 

ENDIF  (FOUNDO) 

CLOSE  DATA 
DEACTIVATE  POPUP 
RETURN 

*  I**********-*-******-*--*-************-*-****.******-*-*******-***-***-*.*-*-**-*.**.***** 


*  ! 

★  ! 

*  ! 

Procedure: 

STARTOR 

*  ! 

Called  by: 

CREATEOR. PRG 

★  i 

EDITORDE. PRG 

*  | 

ORDS  PRO 

★  ! 

*  ! 

ORDT_PRO 

★  j 

*  ! 

Calls : 

STARTHLP . PRG 

*  ! 

Uses : 

CPROFILE. DBF 

★  t 

TASKORG. DBF 

*  ! 

ORDERTAS . DBF 

*  ! 

★  f 

ORDERLST. DBF 

★  l 

MDX  files: 

CPROFILE. MDX 

★  ! 

TASKORG. MDX 

* ! 

ORDERTAS. MDX 

*  f 

*  t 

ORDERLST. MDX 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE . PRG) 


*|**  +  ****  +  *****  +  *  +  *  +  **  +  ********  +  **JlJr*lHl!ni  +  itjJlti)lt4tt]l.>it#tutliltlti  + 

PROCEDURE  startor 
STORE  1  TO  statusvar 
DO  starthlp 
SELECT  4 
USE  cprofile 
SELECT  1 

USE  taskorg  ORDER  uniqueta 

SELECT  18 

USE  ordertas 

SELECT  3 

USE  orderlst 

*  1***********  +  **************,****^^^^*^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 
*  ! 

* !  Procedure:  DISPORD 

*  ! 

* -  Called  by:  CREATEO  (procedure  in  CREATEOR. PRG) 

*!  :  GETORDER  (procedure  in  EDITORDE. PRG) 

*  ! 

*!+*  +  **  +  *  +  *  +  **  +  +  -*****  +  +  **.1l r  +  +  ********  +  ***  +  ****  +  ********+*i.*.*  +  lt  +  +  ^  +  +  +  llri.Jr  + 

PROCEDURE  dispord 

0  17,2  TO  17,78 

0  19,2  SAY  "Order  Number:  " 


4 


v* 


* 
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@  ROW ( ) , COL ( )  SAY  pnumberv 
@  21,2  SAY  "  Order  Name: 

@  ROW  (),  COLO  SAY  namevar 


*  ! 

*  ! 

*  i 

Procedure : 

DISP0RD2 

★  ! 

Called  by: 

VIEWORDE 

(procedure 

in 

CREATEOR. PRG) 

★  j 

ORDT  PRO 

(procedure 

in 

EDITORDE. PRG) 

*  ! 

★  t 

GETORDER 

(procedure 

in 

EDITORDE. PRG) 

PROCEDURE  dispord2 
SELECT  3 

@  20,1  SAY  "Order  Number:  " 

@  ROW ( ) , COL ( )  SAY  NUMBER 

•  @21,2  SAY  "  Order  Name:  " 

@  ROW ( ) , COL ( )  SAY  name 

@  22,2  SAY  "Description:  " 

@  ROW ( ) ,  COL ( )  SAY  descriptio 
@  23,2  SAY  "Number  of  Phases:  ” 

@  ROW  ( )  ,  COLO  SAY  LTRIM  (STR  (phases)  ) 

*  CASE  BAR ()=6 

★  ! 

*!  Procedure:  EDITPLEN 

★  j 

*!  Called  by:  ORDT_PRO  (procedure  in  EDITORDE. PRG) 

*  ! 

★I********************************************************************* 

PROCEDURE  editplen 
CLEAR 

IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "You  must  choose  an  Order  first!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (statusvar=l) 

SET  CONFIRM  ON 

9-  ACTIVATE  WINDOW  editor 

numberva=orderlst->phases 
DO  WHILE  LASTKEY ( ) <>23 

@1,1  SAY  "Order  No.  " 

@  1,13  SAY  NUMBER  PICTURE  "XXXXXXXX" 

*  @3,1  SAY  "Order  Name:  " 

@  3,13  GET  orderlst->name  PICTURE 
"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

@5,1  SAY  "Description:" 

@6,6  GET  orderlst->descriptio  PICTURE 
" XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX " 

@  8,1  SAY  "Number  of  Phases:  " 

@8,19  GET  orderlst->phases  PICTURE  "9" 

@  10,1  SAY  "Phase  Lengths  (Days):" 

@  ROW (), COL ()+3  SAY  "P-l" 

@  ROW {), COL ()+l  GET  orderlst->phasellen 
@  ROW ( ) , COL ( ) +3  SAY  "P-2 " 
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@  ROW ( ) , COL ( ) +1  GET  orderlst->phase21en 
@  ROW( ) , COL ( ) +3  SAY  "P-3" 

@  ROW ( ) , COL ( ) +1  GET  orderls t->phase31en 
@  ROW ( ) , COL { ) +3  SAY  "p-4" 

@  ROW ( ) , COL ( ) +1  GET  orderlst->phase4 len 
@  12,1 

@  ROW  (),  COLO  SAY  "P-5" 

@  ROW ( ) , COL ( ) +1  GET  orderlst->phase51en 
@  ROW ( ) , COL ( ) +3  SAY  "P-6" 

@  ROW ( ) , COL ( ) +1  GET  orderlst->phase61en 
@  ROW  (),  COL  0+3  SAY  "P-7" 

@  ROW ( ) , COL ( ) +1  GET  orderlst->phase71en  4 

@  ROW (), COL ()+3  SAY  "P-8" 

@  ROW ( ) , COL ( ) +1  GET  orderlst->phase81en 
@  ROW  O,  COL  0+3  SAY  "P-9" 

@  ROW ( ) , COL ( ) +1  GET  orderlst->phase91en 

@14,2  SAY  "No  quantity  calcuations  for  Phase  Lengths  of  Zero.  Ctrl-W  when  * 

Done" 

READ 

IF  orderlst->phases<l 
ACTIVATE  WINDOW  small 

@  1,1  SAY  "Must  have  1  or  more  Phases!" 

@  2',  1  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
LOOP 

ENDIF  (orderlst->phases<l ) 

ENDDO  (LASTKEY  ( )  023) 

SET  CONFIRM  OFF 
DEACTIVATE  WINDOW  editor 

*  Need  to  adjust  ordertas  based  on  changes  to  number  of  phases,  if  any 
IF  order Is t->phases<>numberva 

★★A************************** 

DO  CASE 

CASE  orderlst->phases<numberva 
SELECT  18 

DELETE  FOR  NUMBER=orderlst->number  .AND.  phase>orderlst->phases 
PACK 

CASE  order Is t->phases>numberva 
SELECT  18 

*  Need  to  keep  track  of  how  many  additional  phases  were  added 
dif fvar=orderlst->phases-numberva 

SET  FILTER  TO 

REPLACE  AIL  changestat  WITH  .n.  + 

SET  FILTER  TO  NUMBER=orderlst->number  .AND.  .NOT.  changestat 
GO  TOP 

SET  ORDER  TO  taskorgnam 
GO  TOP 

*  Need  to  carry  data  to  new  record  * 

DO  WHILE  .NOT.  EOF ( ) 

addnumva=ordertas->number 
tnameva=ordertas-> taskorgnam 
phaseva=numberva+l 
pronamva=ordertas->profilenam 

LOCATE  FOR  taskorgnam=tnameva  .AND.  phase=numberva 

strengtv=ordertas->strength 

DO  WHILE  .T. 

GO  TOP 

LOCATE  FOR  taskorgnam=tnameva  .AND.  phase=orderlst->phases 
IF  .NOT.  FOUND {) 
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* 


» 


■* 


APPEND  BLANK 

REPLACE  NUMBER  WITH  addnumva 
REPLACE  taskorgnam  WITH  tnameva 
REPLACE  phase  WITH  phaseva 
REPLACE  profilenam  WITH  pronamva 
REPLACE  strength  WITH  strengtv 
a ddn umva =o r de r t a s - > n  umb e r 


tnameva=ordertas->taskorgnam 

phaseva=ordertas->phase+l 

pronamva=ordertas->profilenam 

strengtv=ordertas->strength 


ELSE 

EXIT 

ENDIF  (.NOT.  FOUNDO) 

ENDDO  (.T.) 

GO  TOP 

REPLACE  ALL  changestat  WITH  .  y.  FOR  taskorgnam=tnameva 
GO  TOP 

ENDDO  (.NOT.  EOF ( ) ) 

SET  FILTER  TO 
ENDCASE 

ENDIF  (orderlst->phases<>numberva) 


*  Popup  for  Mission  Parameter  Set/Task  Organization  assignment  choices 

*  BAR  1  OF  Tomp_pop  PROMPT  "Assign  one  Parameter  Set  to  all  Task  Organizations 
and  Phases" 

*  BAR  2  OF  Tomp_pop  PROMPT  "Assign  one  Parameter  Set  to  one  Task  Organization 
for  all  Phases" 


*  BAR  3  OF  Tomp_jpop  PROMPT  "Assign  one  Parameter  Set  to  all  Task  Organizations 
for  a  single  Phase" 

*  BAR  4  OF  Tompjpop  PROMPT  "Assign  Parameter  Sets  to  a  Task  Organization  Phase 
by  Phase" 

*  BAR  5  OF  Tomp_pop  PROMPT  "View  Task  Organizations  and  Parameter  Sets  by 
Phase" 


*  BAR  6  OF  Tompjpop  PROMPT  Return  to  Previous  Menu" 

*  Procedures  for  tomp_pcp 

*  f 


+  f 

Procedure: 

TOMP_PRO 

*  ! 

★  f 

Called  by: 

CREATEOR. PRG 

★  t 

*  ! 

EDITORDE. PRG 

★  ? 

Calls: 

1PR0ALL 

*  ! 

IPROONE 

★  f 

1PR01PRI 

★  t 

PHASEBY 

*  ! 

★  t 

VIEWTOP 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 


*i  **  +  ***  +  ***■*  +  *  +  **  +  **  +  *★**  +  *■•*■*********  +  +  ******  +  *******.*.  +  **  +  *  +  +  +  *  +  *  +  **  +  * 

PROCEDURE  tomp_pro 
DO  CASE 
CASE  BAR ()=1 
DO  lproall 
CASE  BAR  0=2 
DO  Iproone 
CASE  BAR  ()=3 
DO  Iprolpri 
CASE  BAR ( ) =4 
DO  phaseby 
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CASE  BAR  ()=5 
DO  viewtop 
CASE  BAR ()=6  ~ 

DEACTIVATE  POPUP 
ENDCASE 
*CASE  BAR  0=1 

♦t*********************************************************************. 


★  1 

*  1 
*  ! 

Procedure : 

1PR0ALL 

*  ! 

*  ! 

Called  by: 

T0MP_PR0 

(procedure 

in  CREATEOR. PRG) 

*  ! 

★  t 

Calls: 

FINDPRO 

(procedure 

in  CREATEOR. PRG) 

*t++*  +  ***********  +  *******  +  ******.******  +  +  ***  +  lt  +  +  +  +  i.  +  +  +  +  +  1tlklt.  +  +  #it,1k.  +  Jt^  +  +  i  +  + 

PROCEDURE  lproall 

SET  MESSAGE  TO  "Ctrl-W  to  Choose  Parameter  Set  for  all  Task  Organizations  and 
Phases" 

DO  findpro 
SELECT  18 

REPLACE  ALL  profilenam  WITH  cprof ile->profilenam  FOR 

ordertas->number=orderlst->number 

CLEAR 

*CASE  BAR ()=2 

*1**  +  *  +  *  +  ***  +  *  +  ****.*  +  ****  +  **  +  **.*********^*^.**^^^^^^^^.^^^^^.^^^^^^^^^^^^^ 

* ! 

*!  Procedure:  1PR00NE 

* ! 

*!  Called  by:  TOMP  PRO  (procedure  in  CREATEOR. PRG) 

*  i  ~ 

* !  Calls :  SETBROWS . PRG 

* !  :  ENDBROWS . PRG 

*j  :  FINDPRO  (procedure  in  CREATEOR. PRG) 

*  f*********************************..*.*.*.*****.***.*.*.*.**.***^*****^^^^^ 

PROCEDURE  lproone 

*  Choose  Task  Organization 
SELECT  18 

SET  ORDER  TO  uniquetn 
SET  FILTER  TO 

SET  FILTER  TO  NUMBER=orderlst— >number 
GO  TOP 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  NOAPPEND  NODELETE  NOEDIT  NOMENU  FIELDS  taskorgnam  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
STORE  taskorgnam  TO  namevar 

*  DO  findta 

*  Choose  Parameter  Set 

SET  MESSAGE  TO  "Ctrl-W  to  Choose  Parameter  Set  for  this  Task  Organizations  for 
all  Phases" 

SET  FILTER  TO 

SET  ORDER  TO  taskorgnam 

.DO  findpro 

CLEAR 

SELECT  18 

REPLACE  ALL  profilenam  WITH  cprofile->profilenam  FOR 
order tas->number=orderlst->number; 

.AND.  taskorgnam=namevar 


SET  MESSAGE  TO 
CLEAR 

*CASE  BAR ()=3 

★  T  ★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★■AT-*’*************  -V-*- 


★  t 

★  f 

★  f 

Procedure: 

1PR01PRI 

*  ! 

*  f 

Called  by: 

TOMP_PRO 

(procedure 

in  CREATEOP, .  PRG) 

*  ! 

+  i 

Calls : 

FINDPRO 

(procedure 

in  CREATEOP. PRG) 

★  }'k-k  +  -k-k’k+  +  ’k'k-k  +  +  -k-k  +  ’k’k-4e'Jr-k-k'k’k-kifk-k-ir-k-k'kir-k'k-k-k-k-k-k-k-k-k-k-k-Je’k-Jr'k-ir-kir-k-k  +  -k-k+±-*-k-k*-xx--k-r±-k 

PROCEDURE  lprolpri 
SELECT  3 

STORE  0  TO  numbe2var 
STORE  phases  TO  numberva 

SET  MESSAGE  TO  "Ctrl-W  to  Choose  Parameter  Set  for  all  Task  Organizations  and 
Phases" 

DO  findpro 

ACTIVATE  WINDOW  small 

@1,1  SAY  "Enter  Phase  Number  to  use  selected" 

@2,1  SAY  "Parameter  Set  for:  " 

@  ROW(),COL()  GET  numbe2var  VALID  numbe2var<=numberva  .AND.  numbe2var>=0 ; 

ERROR  "Must  be  between  0  and  "+LTRIM(STR (numberva) )+" .  0  cancels." 

@  3,1  SAY  "There  are  "+LTRIM (STR( numberva )) +"  Phases  in  this  Order" 

READ 

IF  numbe2var=0 
CLEAR 
?  CHR ( 7 ) 

@  1,2  SAY  "No  Phase  selected,  action  cancelled!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (numbe2var=0) 

DEACTIVATE  WINDOW  small 
SELECT  18 

REPLACE  ALL  profilenam  WITH  cprofile->profilenam; 

FOR  ordertas->number=orderlst->number  .AND.  phase=numbe2var 
CLEAR 

*CASE  BAR ()=4 

+ I *******+********+++**+***>*+**+++★+*++*+******+**+★**+**++***+***+*** 


* ! 

★  t 

★  i 

Procedure: 

PHASEBY 

★  f 

★  i 

Called  by: 

TOMP_PRO 

(procedure 

in 

CREATEOR. PRG) 

4 

★  t 

★  ! 

★  » 

Calls : 

VIEWTOP 

FINDPRO 

(procedure 

(procedure 

in 

in 

CREATEOR. PRG) 
CREATEOR. PRG) 

*  I  *  +  **********  +  +  ****  +  ***************  +  ****.+*  +  +  ******  ++****  +  +  *+*  +  +  +  *  +  ****. 

PROCEDURE  phaseby 
DO  viewtop 
DO  findpro 
SELECT  18 

REPLACE  profilenam  WITH  cprof ile->prof ilenam 
SET  FILTER  TO 
*CASE  BAR  0=5 

+  1**  +  +  +  ***************++**  +  ***.++**  +  .*.*  +  **.******  +  .*.*  +  ***+******.*..*..*.*  +  *  +  **.** 
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*  ! 

*  ! 

★  t 

Procedure : 

VIEWTOP 

. 

★  ! 

Called  by: 

TOMP  PRO 

(procedure 

in 

CREATEOR. PRG) 

-Ar  | 

★  | 

PHASEBY 

(procedure 

in 

CREATEOR. PRG; 

★  ! 

Calls: 

SETBROWS . PRG 

★  t 

★  i 

ENDBROWS . PRG 

★ y **************** 

********************************** 

*************** 

*r  ★  ★ 


PROCEDURE  viewtop 
SELECT  18 


*  Put  in  taskorgnam+str (phase)  order 
SET  ORDER  TO  taskphas 
SET  FILTER  TO  NUMBER=orderlst->number 
IF  NUMBER=orderlst->number 
GO  RECNOO 
ELSE 

GO  TOP 

ENDIF  (number=orderlst->number ) 
ACTIVATE  WINDOW  browser 
DO  setbrows 


BROWSE  NOEDIT  NOAPPEND  NODELETE  NOMENU  FIELDS  phase,  profilenam,  taskorgnam 

DO  endbrows 

SET  FILTER  TO 

SET  ORDER  TO  taskorgnam 

DEACTIVATE  WINDOW  browser 

*  !  **+****************************************************************^* 

*  ! 

* !  Procedure:  DISPPROF 

* ! 


* !  Called 

*  ! 

*  ! 

*  | 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

* ! 

*  ! 

+  i 


by:  NEWPROFI 
:  VTEWPROF 
:  SELEPROF 
:  CHANGEAP 
:  CHANGEAC 
:  CHANGEI 
:  CHANGEI F 
:  CHANGECI 
:  CHANGEH2 
:  CHANGEME 
:  SELECTPRO 
:  FINDPRO 


(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 


in  CREATEPR. PRG) 
in  CREATEPR. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  DELPROF. PRG) 
in  CREATEOR. PRG) 


PROCEDURE  dispprof 
SELECT  4 

@12,1  SAY  "Parameter  Set  Name:" 

@12,17  SAY  profilenam  PICTURE  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
@13,1  SAY  "Description:  " 

@13,17  SAY  profiledes  PICTURE 

"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX” 

@14,1  SAY  "Area" 

@14,6  SAY  "Parameter  Set:" 

@14,17  SAY  profile  PICTURE  "XXXXXXXXXXXXXXX " 

@15,  1  SAY  "Intensity:" 

@15,17  SAY  INTENSITY  PICTURE  "XXXXXXXX" 

@15,27  SAY  "Factor" 

@15,35  SAY  factor  PICTURE  "999.99" 

@16,1  SAY  "Ammo  Consumption  Posture:  " 


4 


#• 


174 


¥ 


«r 


GROW ( ) , COL ( )  SAY  posture 


★  1 
*  1 
★  ! 

Procedure : 

FINDPRO 

★  ! 

Called  by: 

1PR0ALL 

(procedure 

in 

CREATEOR. PRG) 

★  1 

1PR00NE 

(procedure 

in 

CREATEOR. PRG) 

*  ! 

1PR01PRI 

(procedure 

in 

CREATEOR. PRG) 

*  ! 

★  t 

PHASEBY 

(procedure 

in 

CREATEOR. PRG) 

*  ! 

Calls: 

SETBROWS . PRG 

★  } 

ENDBROWS . PRG 

★  | 

★  i 

DISPPROF 

(procedure 

in 

CREATEPR. PRG) 

PROCEDURE  findpro 
SELECT  4 

ACTIVATE  WINDOW  browser 
GO  TOP 
DO  setbrows 

BROWSE  NOMENU  NOEDIT  NOAPPEND  NODELETE  ; 

FIELDS  prof ilenam, prof iledes  FREEZE  profilenam  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 

SET  CURSOR  OFF 

CLEAR 

DO  WHILE  LASTKEY ( ) <>23 
DO  dispprof 
IF  RECCOUNT ( )  =1 

@  23,30  SAY  "Crtl-W  when  Done" 

ELSE 

@  23,15  SAY  "Page-Up  or  Page-Down  to  View,  Ctrl-W  when  Done" 
ENDIF  (RECCOUNT ()=1) 

IF  LASTKEY ()=3 
SKIP 
IF  EOF  ( ) 

GO  TOP 

ENDIF  (EOF ( ) ) 

ENDIF  (LASTKEY  0=3) 

IF  LASTKEY ()=18 
SKIP  -1 
IF  BOF ( ) 

GO  BOTTOM 
ENDIF  (BOF ( ) ) 

ENDIF  (LASTKEY ( ) =18 ) 

WAIT  "" 

ENDDO  ( LASTKEY  ()  023) 

SET  CURSOR  ON 
SET  MESSAGE  TO 

★I********************************************************************* 
*  ! 

*!  Procedure:  DISPTAS 

* ! 

★I********************************************************************* 

PROCEDURE  disptas 
e  17,2  TO  17,78 

@  21,2  SAY  "Task  Organization:  " 

@  ROW ( ) , COL ( )  SAY  namevar 

*?★**+**★****★*-*★★★**  +  ******★★★*★★★★*★★★★■*■*★★********★  +  +  +  +  **  +  +  **  +  ★***•** 
★  ! 
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★  I 

★  1 

Procedure : 

FINDTA 

★  1 

Called  by: 

EDITTASK. PRG 

+  ! 

COPT  PRO 

*  ! 

EDIT  PRO 

*  ! 

★  j 

DELT_PRO 

*  l 

Calls : 

SETBROWS . PRG 

★  { 

ENDBROWS . PRG 

*  ! 

★  r 

2 

DISPTASK 

(procedure  in  CREATETC . PRG) 
(procedure  in  EDITTASK . PRG) 
(procedure  in  DELTASK. PRG) 


(procedure  in  CREATETA. PRG) 


•*■★***• 


PROCEDURE  findta 
SELECT  3 

STORE  NUMBER  TO  pnumberv 
SELECT  18 

*STORE  RECNO ( )  TO  recnovar 

SET  ORDER  TO  uniqueta 

SET  FILTER  TO  NUMBER=orderlst->number 

GO  TOP 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  FIELDS  taskorgnam  NOMENU  NOEDIT  NOAPPEND  NODELETE  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 

STORE  taskorgnam  TO  namevar 

SET  FILTER  TO 

SET  ORDER  TO  NUMBER 

*GO  recnovar 

*DO  disptas 

*******  +  **  +  *  +  **  +  +  ***.  +  ****.********.*  ***>***********  +  **********  +  ******  +  ****  +  *****  + 


* ! 


★  t 

★  j 

Procedure: 

STRE_PRO 

*  ! 

★  \ 

Called  by: 

EDITORDE. PRG 

*  ! 

Calls: 

1STRALL 

★  t 

1STR0NE 

★  1 

1STR1PRI 

★  j 

PHASEBYS 

*  ! 

★  t 

VTEWSTR 

(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE. PRG) 


*i  ****  +  ****  +  +  **+****  +++*********.***.*  +  *  +  +  *  +++****  +  **********  +  *A***  +  +  +  >  +  + 

PROCEDURE  stre  pro 

*  BAR  1  "Assign  one  Strength  to  all  Task  Organizations  and  Phases  this  Order" 

*  BAR  2  "Assign  a  Strength  to  one  Task  Organization  for  all  Phases  this  Order" 

*  BAR  3  "Assign  a  Strength  to  all  Task  Organizations  for  a  single  Phase  this 
Order" 

*  BAR  4  "Assign  Strengths  to  a  Task  Organization  Phase  by  Phase  for  this  Order" 

*  BAR  5  "Return  to  Previous  Menu" 

*  BAR  6  "View  this  Orders  Task  Organizations  and  Strengths  by  Phase" 

SELECT  18 

DO  CASE 
CASE  BAR ()=1 
DO  lstrall 
CASE  BAR ( ) =2 
DO  lstrone 
CASE  BAR  ()=3 


4 


* 
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•¥ 


* 


DO  lstrlpri 
CASE  BAR  0=4 
DO  phasebys 
CASE  BAR  0=5 
DO  viewstr 
CASE  BAR ()=6 

DEACTIVATE  POPUP 
ENDCASE 
♦CASE  BAR  0=1 

*  ! 

* !  Procedure:  1STRALL 

★  ? 

* !  Called  by:  STRE_PRO  (procedure  in  EDITORDE . PRG) 

*  ! 


PROCEDURE  lstrall 
numberst=100 


SET  MESSAGE  TO  "Strength  for  all  Task  Organizations  in  all  Phases" 

ACTIVATE  WINDOW  small 

@1,1  SAY  "Enter  Percent  Strength:  " 

0  ROW (), COLO  GET  numberst  PICTURE  ”999"  VALID  numberst>=0; 

ERROR  "Must  be  between  0  and  999" 

READ 

DEACTIVATE  WINDOW  small 

REPLACE  ALL  ordertas->strength  WITH  numberst; 

FOR  ordertas->number=orderlst->number 
SET  MESSAGE  TO 
CLEAR 

♦CASE  BAR  ()=2 

★  f 

★  ! 

*!  Procedure:  1STRONE 

*  ! 

*!  Called  by:  STRE_PRO  (procedure  in  EDITORDE. PRG) 

*  ! 


* !  Calls:  SETBROWS.PRG 

* !  :  ENDBROWS . PRG 

*  i 


PROCEDURE  lstrone 
*  Choose  Task  Organization 
DO  setbrows 

BROWSE  NOAPPEND  NODELETE  NOEDIT  NOMENU  FIELDS  taskorgnam  COMPRESS 
DO  endbrows 

STORE  taskorgnam  TO  namevar 
numberst=100 

SET  MESSAGE  TO  "Strength  for  one  Task  Organizations  in  all  Phases” 
ACTIVATE  WINDOW  small 
0  1,1  SAY  "Enter  Percent  Strength:  " 

@  ROW {), COLO  GET  numberst  PICTURE  "999"  VALID  numberst>=0; 

ERROR  "Must  be  between  0  and  999" 

READ 

DEACTIVATE  WINDOW  small 

REPLACE  ALL  ordertas->strength  WITH  numberst; 

FOR  ordertas->number=orderlst->number . AND.  taskorgnam=namevar 
SET  MESSAGE  TO 
CLEAR 

♦CASE  BAR ()=3 

★i********************************************************************* 
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Procedure:  1STR1PRI, 


*  ! 
*  ! 


*  ! 
*  i 


Called  by:  STRE  PRO 


(procedure  in  EDITORDE. PRG) 


PROCEDURE  lstrlpri 
SELECT  3 


STORE  0  TO  numbe2var 
STORE  phases  TO  numberva 
ACTIVATE  WINDOW  small 

@  1,1  SAY  "Enter  Phase  Number  to  use  selected" 

@2,1  SAY  "Parameter  Set  for:  " 

@  ROW ( ) , COL ( )  GET  numbe2var  VALID  numbe2var<=numberva  .AND.  numbe2var>=0; 

ERROR  "Must  be  between  0  and  "+LTRIM (STR (numberva ))+" .  0  cancels." 

@  3,1  SAY  "There  are  "+LTRIM(STR(numberva) ) +"  Phases  in  this  Order" 

READ 


IF  numbe2var=0 


CLEAR 
?  CHR  ( 7 ) 

@  1,2  SAY  "No  Phase  selected,  action  cancelled!" 
@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (numbe2var=0) 

DEACTIVATE  WINDOW  small 
SELECT  18 
numberst=100 


SET  MESSAGE  TQ  "Strength  for  all  Task  Organizations  in  a  single  Phase" 

ACTIVATE  WINDOW  small 

@1,1  SAY  "Enter  Percent  Strength:  " 

@  ROW ( ) , COL ( )  GET  numberst  PICTURE  "999"  VALID  numberst>=0 ; 

ERROR  "Must  be  between  0  and  999" 

READ 

DEACTIVATE  WINDOW  small 


REPLACE  ALL  ordertas->strength  WITH  numberst  FOR 
ordertas->number=orderlst->number; 

.AND.  phase=numbe2var 


CLEAR 

*CASE  BAR ()=4 

* ;  *  +  ********  +  *******  +  *******.*.***********  ************* 
*  ! 


★  f 

Procedure: 

PHASEBYS 

*! 

* ! 

Called  by: 

STRE  PRO 

*  i 

(procedure  in  EDITORDE. PRG) 


*  ! 

★  f 

★  I 


Calls:  SETBR0W2 . PRG 
:  ENDBROWS . PRG 


PROCEDURE  phasebys 
ACTIVATE  WINDOW  browser 


DO  setbrow2 

BROWSE  NOAPPEND  NODELETE  NOMENU  FIELDS  phase,  strength,  taskorgnam  FREEZE 

strength 

DO  endbrows 


DEACTIVATE  WINDOW  browser 
♦CASE  BAR ()=5 


4 


* 
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* 


* 


*!**************  +  ***************  +  ***************  +  ***  +  **********-***  *■  +  +  +  ■> 
+  ! 

Procedure:  VIEWSTR 


Called  by:  STRE_PRO 

Calls:  SETBROWS . PRG 
:  ENDBROWS . PRG 


(procedure  in  EDITORDE . PRG) 


*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 


PROCEDURE  viewstr 

*  Put  in  taskorgnam+str (phase)  order 
ACTIVATE  WINDOW  browser 

DO  setbrows 

BROWSE  NOEDIT  NOAPPEND  NODELETE  NOMENU  FIELDS  phase,  strength,  taskorgnam 
DO  endbrows 

DEACTIVATE  WINDOW  browser 

*  Edit  Phase  Lengths 
RETURN 

*:  EOF:  EDITORDE. PRG 


* 
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★ 

* 

★ 


•k 


Procedure  file:  D:\SURE\EDITPROF.PRG 


Procs  &  Fncts :  STARTEPR 
:  EDIP_PRO 
:  SELEPROF 
:  CHANGEAP 
:  CHANGEAC 
:  CHANGE I 
:  CHANGEIF 
:  CHANGECI 
:  CHANGEH2 
:  CHANGEME 

Set  by:  PROF  PRO 


(procedure  in  SURE.PRG) 


★ 

★ 


★ 


Calls:  STARTEPR 
:  EDIP  PRO 


(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 


Documented  04/16/94  at  11:01  SNAP!  version  5.00 

********+  +  *  +  ******  +  *******++  +  *  +  +  +  +  +  *  +  +  +  *  +  +  **  +  +  ■),  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 


*  editprof.prg 

STORE  PROGRAM ()  TO  progvar 

CLEAR 

STORE  1  TO  statusvar 
SET  PROCEDURE  TO  instprof 
DO  startepr 

DEFINE  POPUP  edipjpop  FROM  1,14 

DEFINE  BAR  1  OF  edip_pop  PROMPT  "Select  Parameter  Set” 

DEFINE  BAR  2  OF  edipjpop  PROMPT  "Change  Area  Profile" 

DEFINE  BAR  3  OF  edipjpop  PROMPT  "Change  Ammo  Consumption  Posture" 

DEFINE  BAR  4  OF  edip_pop  PROMPT  "Change  Intensity" 

DEFINE  BAR  5  OF  edip_pop  PROMPT  "Change  Intensity  Factor" 

DEFINE  BAR  6  OF  edip_pop  PROMPT  "Change  Class  I  Parameters" 

DEFINE  BAR  7  OF  edip_pop  PROMPT  "Change  Water  Consumption  Parameters" 

DEFINE  BAR  8  OF  edip _p>op  PROMPT  "Change  Class  VIII  Medical  Parameters" 

DEFINE  BAR  9  OF  edip_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  edipjpop  DO  edip  pro 
ON  BAR  1  OF  edip_pop  DO  edip  barl  ~ 

ON  BAR  2  OF  edip_pop  DO  edip- bar2 
ON  BAR  3  OF  edip_pop  DO  edip-bar3 
ON  BAR  4  OF  edip_pop  DO  edip_bar4 
ON  BAR  5  OF  edip_pop  DO  edip_bar5 
ON  BAR  6  OF  edipjpop  DO  edip- bar 6 
ON  BAR  7  OF  edipjpop  DO  edip- bar7 
ON  BAR  8  OF  edip_pop  DO  edip  bar8 
ON  BAR  9  OF  edip_pop  DO  edip-bar9 
DO  WHILE  PROMPT ()<>"Return  to  Main  Menu" 


ACTIVATE  POPUP  edip_pop 
ENDDO  (PROMPT () <>"Return  to  Main  Menu") 


*» 

★  J 

★  1 

Procedure: 

EDIP_PRO 

*  ! 

*  ! 

Called  by: 

EDITPROF.PRG 

★  f 

★  ! 

★  f 

Calls : 

SELEPROF 

CHANGEAP 

CHANGEAC 

(procedure  in 
(procedure  in 
(procedure  in 

EDITPROF.PRG) 
EDITPROF.PRG) 
EDITPROF. PRG) 

* 


* 


*  ! 

CHANGEI 

(procedure 

in 

EDITPROF. PRG) 

*  ! 

CHANGEI F 

(procedure 

in 

EDITPROF. PRG) 

+  ! 

CHANGECI 

(procedure 

in 

EDITPROF. PRG) 

★  i 

CHANGEH2 

(procedure 

in 

EDITPROF. PRG) 

★  j 

CHANGEME 

(procedure 

in 

EDITPROF. PRG) 

*  j 

*  i 

ENDCREP 

(procedure 

in 

CREATEPR. PRG) 

PROCEDURE  edip_pro 
DO  CASE 
CASE  BAR  0=1 
DO  seleprof 
CASE  BAR ()=2 
DO  changeap 
CASE  BAR ()=3 
DO  changeac 
CASE  BAR  0=4 
DO  changei 
CASE  BAR  ()=5 
DO  changei f 
CASE  BAR  0=6 
DO  changed 
CASE  BAR  ()=7 
DO  changeh2 
CASE  BAR  0=8 
DO  changeme 
CASE  BAR  ()=9 
DO  endcrep 
ENDCASE 

*  Procedures  for  CreP_pop 

*  CASE  BAR()  =  1 

★j********************************************************************* 


* ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 


Procedure:  SELEPROF 

Called  by:  EDIP_PRO 

Calls:  SETBROWS . PRG 
:  ENDBROWS . PRG 
:  DISPPROF 


(procedure  in  EDITPROF. PRG) 


(procedure  in  CREATEPR. PRG) 


PROCEDURE  seleprof 
SELECT  4 

*  Make  sure  there  are  some  records  to  view 
IF  RECCOUNT ( ) =0 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  have  at" 

@  2,2  SAY  "least  one  Profile!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (RECCOUNT ()=0) 

ACTIVATE  WINDOW  browser 
GO  TOP 

*  SET  MESSAGE  TO  "Choose  Profile  to  View" 
DO  setbrows 
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BROWSE  NOMENU  NOEDIT  NOAPPEND  NODELETE  FIELDS  profilenam, prof iledes  FREEZE 
profilenara  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
statusvar=2 
DO  dispprof 
*  CASE  BAR()  =  2 

*i  +  +  +  *-  +  *****  +  +  *  +  ****  +  **  +  **  +  **  +  *****.  +  **********  +  *******:*.  +  *  +  **.***Tk.*  +  **.  +  +  + 


*  ! 

★  ! 

*  ! 

Procedure: 

CHANGEAP 

★  t 

★  [ 

Called  by: 

EDIP_PRO 

{procedure 

in  EDITPROF. PRG) 

*  ! 

Calls: 

SETBROWS. PRG 

*  ! 

ENDBROWS . PRG 

★  j 

*  t 

DISPPROF 

(procedure 

in  CREATEPR. PRG) 

★j********************************************************************* 
PROCEDURE  changeap 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "Choose  a  Parameter  Set  First!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (statusvar=l) 

SELECT  7 

*  SET  MESSAGE- TO  "Choose  a  CASCOM  Area  Profile,  then  Ctrl-W" 

DO  setbrows 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  profile 
DO  endbrows 
SELECT  4 

REPLACE  cprofile->prof ile  WITH  profiles->prof ile 
DO  dispprof 

*  CASE  BAR()  =  3 

+  1+  +  *  +  ******  +  +  *****  +  *  +  *  +  *  +  ***************.  +  ***************.**^***^.^^^.^^^^ 


*  ! 

*  ! 

★  ! 

Procedure: 

CHANGEAC 

* ! 

*  ! 

Called  by: 

EDIP_PRO 

{procedure 

in  EDITPROF. PRG) 

★  f 

Calls : 

SETBROWS . PRG 

*  ! 

: 

ENDBROWS . PRG 

★  f 

★  i 

J 

DISPPROF 

(procedure 

in  CREATEPR. PRG) 

*[*******  +  *******  +  *  +  ***  +  ***  +  **********.*********, !.■*•  +  *•****  +  *  +  *■■**  +  •*****■*••**  + 
PROCEDURE  changeac 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "Choose  a  Parameter  Set  First!” 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (statusvar=l) 
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* 


'¥ 


* 


SELECT  17 
GO  TOP 

*  SET  MESSAGE  TO  "Select  a  Combat  Posture  for  Ammunition  Consumption" 

DO  setbrows 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT 
DO  endbrows 

REPLACE  cprofile->posture  WITH  posture->posture 
SET  MESSAGE  TO 


DO  dispprof 
*  CASE  BAR()  =  4 


★  ! 

* !  Procedure:  CHANGEI 

*  ! 

*!  Called  by:  EDIP_PRO  (procedure  in  EDITPROF. PRG) 

*  ! 


Calls :  SETBROWS . PRG 
:  ENDBROWS. PRG 

:  DISPPROF  (procedure  in  CREATEPR. PRG) 


■k  -k  k 


PROCEDURE  changei 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "Choose  a  Parameter  Set  First!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (statusvar=l) 

*  SET  MESSAGE  TO  "Choose  an  Intensity  for  this  Parameter  Set” 
SELECT  10 

DO  setbrows 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  INTENSITY 
DO  endbrows 
SELECT  4 

REPLACE  cprofile->intensity  WITH  intensty->intensity 
REPLACE  cprofile->factor  WITH  intensty->factor 
DO  dispprof 

*  CASE  BAR()  =  5 

*!*+****+*++******++**+****+*******+++*****+*.****+***+**+**++*+*++++*** 

*  ! 

*!  Procedure:  CHANGEI F 

* ! 

*!  Called  by:  EDIP_PRO  (procedure  in  EDITPROF. PRG) 

+ 1 

*  !  Calls:  DISPPROF  (procedure  in  CREATEPR. PRG) 

+  | 

+  (+  +  **■****  +  ****•*■  +  *************  +  +  **  +  ****++*•**■**  +  ■*■**  +  *  +  +  ***  +  ***  +  **  +  *  +  **** 
PROCEDURE  changei f 
ACTIVATE  WINDOW  small 
?  CHR (7) 

@  1,2  SAY  "Warning!  Normally  CASCOM  supplied!" 

@  2,2  SAY  "Change  with  caution:  " 

@  ROW (), COL()  GET  cprof ile->factor  PICTURE  "999.99" 

READ 

DEACTIVATE  WINDOW  small 
DO  dispprof 
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*  CASE  BAR  ()=6 

*  ! 


*!  Procedure:  CHANGECI 

*  ! 

*!  Called  by:  EDIP_PRO  (procedure  in  EDITPROF . PRG ) 

*  ! 

*!  Calls:  SETBROWS.PRG 

*  !  :  ENDBROWS . PRG 

*!  •  :  DISPPROF  (procedure  in  CREATEPR. PRG) 

*  ! 

PROCEDURE  changed 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "Choose  a  Parameter  Set  First!" 

@  3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (statusvar=l ) 

*  Class  I 
SELECT  24 
DO  setbrows 

SET  MESSAGE  TO  "Choose  Type  of  Ration  for  Breakfast  Meal,  then  Enter  to  Select" 
GO  TOP 

LOCATE  FOR  class_i->ration=cprofile->cl  i  1 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  ration,  unit,  plan  fact 
REPLACE  cprofile->cl_i_l  WITH  class_i->ration 

SET  MESSAGE  TO  "Choose  Type  of  Ration  for  Lunch  Meal,  then  Enter  to  Select" 

GO  TOP 

LOCATE  FOR  class_i->ration=cprofile->cl  i  2 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  ration,  unit,  plan_fact 
REPLACE  cprofile->cl_i_2  WITH  class_i->ration 

SET  MESSAGE  TO  "Choose  Type  of  Ration  for  Dinner  Meal,  then  Enter  to  Select" 

GO  TOP 

LOCATE  FOR  class_i->ration=cprofile->cl  i  3 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  ration,  unit,  plan_fact 
DO  endbrows 

REPLACE  cprofile->cl_i  3  WITH  class  i->ration 
SELECT  4 
DO  dispprof 

*  CASE  BAR  ()=7 

+  j  **********  +  ***  +  ******  +  +  +  *  +  ****  +  ***********.*  +  ********  +  *******  +  *  +  ****** 

*  ! 

*!  Procedure:  CHANGEH2 

*  ! 

* j  Called  by:  EDIP_PRO  (procedure  in  EDITPROF. PRG) 

*!  Calls:  SETBROWS.PRG 

* !  :  ENDBROWS . PRG 

*!  :  DISPPROF  (procedure  in  CREATEPR. PRG) 


*  f  ★■*■★*★'*■•*•*★★■*•*★★*★★★★*★■*'★★★*  +  ★★*******•*. 

PROCEDURE  changeh2 
IF  statusvar=l 


*  * 


ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 


A 


A 


A 
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@1,2  SAY  "Choose  a, Parameter  Set  First!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  ( statusvar=l ) 

*  Select  Water  Parameters 
SELECT  23 

*  SET  MESSAGE  TO  "Select  Water  Use  Parameters" 

DO  setbrows 

►  BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  gal_man_da,  echelon, climate 

DO  endbrows 

REPLACE  cprofile->water_name  WITH  water->water_name 
SELECT  4 
DO  dispprof 
*  *  CASE  BAR ()=8 

★i********************************************************************* 


*  1 

*  ! 

*  i 

Procedure : 

CHANGEME 

★  i 

★  | 

Called  by: 

EDIP_PRO 

(procedure 

in  EDITPROF. PRG) 

*  ! 

Calls : 

SETBROWS. PRG 

★  t 

ENDBROWS . PRG 

+  ! 

DISPPROF 

(procedure 

in  CREATEPR. PRG) 

★  ! 

*  i  ****■*■•*■*■  +  **  +  +  +  **  +  ***.*.**  +  *  +  *****.*.*.*■  +  ******•*  +  +  ***  +  *  +  **  +  ****  +  ********  +  *** 

PROCEDURE  changeme 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "Choose  a  Parameter  Set  First!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  ( statusvar=l ) 

*  Select  Medical  Class  VIII  Parameters 
SELECT  22 

*  SET  MESSAGE  TO  "Select  Medical  Class  VIII  Consumption  Parameters" 
DO  setbrows 

*  BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  plan_f act, echelon, INTENSITY 
DO  endbrows 

REPLACE  cprofile->med_name  WITH  medical->med  name 
SELECT  4 
DO  dispprof 
*■  *  CASE  BAR()  =  9 

*  }★★***+★++★*  +  ★**★  +  **  +  **  +  **  +  **  +  ***.*.**.*.***.*..*********  **★★******★****  +  +  ★** 

★  ! 

*!  Procedure:  ENDCREP 

★  j 

*!  Called  by:  CREP_PRO  (procedure  in  CREATEPR. PRG) 

*!  :  EDIP  PRO  -(procedure  in  EDITPROF. PRG) 

*  ! 

*i  *■*•*******•*•***  +  *  +  *•*  +  ****  +  ********.*********>  +  +  ********  +  +  *  +  ************* 

PROCEDURE  endcrep 
CLOSE  DATA 
DEACTIVATE  POPUP 
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10 


*  CASE  BAR()  = 
statusvar=l' 
CLEAR 
RETURN 


•Jr 


ir 


•k 


Procedure : 

STARTEPR 

Called  by: 

EDITPROF. PRG 

Calls: 

STARTHLP. PRG 

Uses : 

MEDICAL. DBF 
WATER. DBF 
CLASS  I. DBF 
INTENSTY. DBF 
PROFILES. DBF 
POSTURE. DBF 
CPROFILE. DBF 

MDX  files: 

MEDICAL. MDX 
WATER. MDX 
CLASS  I. MDX 
INTENSTY. MDX 
PROFILES. MDX 
CPROFILE. MDX 

PROCEDURE  startepr 
DO  starthlp 
SELECT  22 
USE  medical 
SELECT  23 
USE  water 


SELECT  24 
USE  class_i 
SELECT  10 
USE  intensty 
SELECT  7 


USE  profiles 
SELECT  17 
USE  posture 
SELECT  4 


USE  cprofile 


SET  ORDER  TO  profilenam 
STORE  SPACE (60)  TO  naraevar 

*  I******************************************************************* 
* ! 


★  ★ 


*!  Procedure:  DISPPROF 

*  ! 

*!  Called  by:  NEWPROFI 

* !  :  VIEWPROF 

*!  :  SELEPROF 

* !  :  CHANGEAP 

* !  :  CHANGEAC 

* !  :  CHANGE I 

*!  :  CHANGEIF 

* !  :  CHANGECI 

* !  :  CHANGEH2 

* !  :  CHANGEME 


(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 


CREATEPR . PRG) 
CREATEPR. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
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* 


* 


«r 


'4 


*  ! 
+  i 


:  SELECTPRO 
:  FINDPRO 


(procedure  in  DELPROF. PRG) 
(procedure  in  CREATEOR. PRG) 


PROCEDURE  dispprof 
SELECT  4 

@15,1  SAY  "Profile  Name:" 

@15,17  SAY  profilenam  PICTURE  "XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 
@16,1  SAY  "Description:  " 

@16,17  SAY  profiledes  PICTURE 

"XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX" 

*  @17,1  SAY  "Area" 

@17,6  SAY  "Profile:" 

@17,17  SAY  profile  PICTURE  "XXXXXXXXXXXXXXX" 

@13,  1  SAY  "Intensity:" 

@18,17  SAY  INTENSITY  PICTURE  "XXXXXXXX" 

-t  @18,27  SAY  "Factor" 

@18,35  SAY  factor  PICTURE  "999.99" 

@19,1  SAY  "Ammo  Posture:  " 

@ROW ( ) , COL ( )  SAY  posture 
@20,1  SAY  "Ration  Cycle: 

@  ROW  ( )  ,  COLO  SAY  "(1)  "tel _ i _ 1+"  (2)  "+cl  i  2  +  "  (3)  "+cl  i  3 

@21,1  SAY  "Water  Use:  "  - 

@  ROW ( ) ,  COL ( )  SAY  water_name 
@22,1  SAY  "Class  VIII:  " 

@  ROW ( ) ,  COL ( )  SAY  med_name 
RETURN 

*:  EOF:  EDITPROF. PRG 


r 


* 
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k 

•k 

k 

k 

k 

k 

k 

k 

k 


Procedure  file:  D:\SURE\EDITTASK.PRG 

Procs  &  Fncts:  EDIT_PRO 
:  VIEWTASK 
:  VIEWTAS2 
:  UNASS I GU 
:  UNAS  S I G2 
:  ENDEDIT 


k 

k 


Set  by:  TASK  PRO 


(procedure  in  SURE.PRG) 


Calls:  STARTED  (procedure  in  DELUNIT.PRG) 

:  FINDTA  (procedure  in  CREATETC . PRG) 

:  EDIT_PRO  (procedure  in  EDITTASK. PRG) 


* 

* 


Documented  04/16/94  at  11:01 


SNAP!  version  5.00 


*edittask. prg 

STORE  PROGRAM ()  TO  progvar 
*  PRIVATE  Variables 
CLEAR 


STORE  0  TO  countvar 
STORE  SPACE (60)  TO  namevar 
STORE  SPACE (60)  TO  unitvar 
STORE  1  TO  statusvar 
STORE  "  "  TO  yesnovar 

SET  PROCEDURE  TO  insttask 
DO  started 
IF • BOF ( ) 

ACTIVATE  WINDOW  small 

?  CHR ( 7 ) 

@1,2  SAY  "Create  a  Task  Organization  First!" 

@  2,2  SAY  "Press  any  key..." 

WAIT  "" 


DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (BOF ( ) ) 

SET  MESSAGE  TO  "Select  Task  Force" 

DO  findta 
SET  MESSAGE  TO 

DEFINE  POPUP  edit_pop  FROM  1,5 

DEFINE  BAR  1  OF  edit_pop  PROMPT  "Select  Task  Organization" 

DEFINE  BAR  2  OF  edit_pop  PROMPT  "Assign  Units  -  Unit  Name  Order" 

DEFINE  BAR  3  OF  edit_pop  PROMPT  "Assign  Units  -  SRC  Order” 

DEFINE  BAR  4  OF  edit_pop  PROMPT  "View  Task  Organization  Units/Change  Unit 
Quantities  -  Unit  Name  Order" 

DEFINE  BAR  5  OF  edit_pop  PROMPT  "View  Task  Organization  Units/Change  Unit 
Quantities  -  SRC  Order" 

DEFINE  BAR  6  OF  edit_pop  PROMPT  "Un-assign  Units  -  Unit  Name  Order" 

DEFINE  BAR  7  OF  edit_pop  PROMPT  "Un-assign  Units  -  SRC  Order” 

DEFINE  BAR  8  OF  edit_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  edit_pop  DO  edit_pro 
ON  BAR  1  OF  edit_pop  DO  edit_barl 
ON  BAR  2  OF  edit_pop  DO  edit_bar2 
ON  BAR  3  OF  edit_pop  DO  edit_bar3 
ON  BAR  4  OF  edit_j?op  DO  edit_bar4 
ON  BAR  5  OF  editjpop  DO  edit_bar5 
ON  BAR  6  OF  edit_pop  DO  edit_bar6 


4. 


* 
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ON  BAR  7  OF  edit__pop  DO  edit  bar7 
ON  BAR  8  OF  edit  pop  DO  edit  bar7 
DO  WHILE  PROMPT  ()  <>''Return  to  Main  Menu" 
ACTIVATE  POPUP  edit_pop 
ENDDO  ( PROMPT {)<>" Return  to  Main  Menu") 

★  ! 


★  f 

★  1 

*  f 

★  | 
★  1 

★  t 

★  I 

★  1 
*  ! 
*  ! 

★  f 

+  I 

*  t 


Procedure:  EDIT  PRO 


Calls 


EDITTASK. PRG 

FINDTA 

(procedure 

in 

ASSIGNUN 

(procedure 

in 

ASSIGNU2 

(procedure 

in 

VIEWTASK 

(procedure 

in 

VIEWTAS2 

(procedure 

in 

UNASSIGU 

(procedure 

in 

UNASSIG2 

(procedure 

in 

ENDEDIT 

(procedure 

in 

:********************************, 

.  PRG) 
.  PRG) 
.  PRG) 
.  PRG) 
.  PRG) 
.  PRG) 
,  PRG) 
.  PRG) 


PROCEDURE  edit_pro 
DO  CASE 
CASE  BAR  ()=1 
DO  findta 
CASE  BAR ()=2 
DO  assignun 
CASE  BAR  ()=3 
DO  assignu2 
CASE  BAR  ()=4 
DO  viewtask 
CASE  BAR ()=5 
DO  viewtas2 
CASE  BAR ()=6 
DO  unassigu 
CASE  BAR  ()=7 
DO  unassig2 
CASE  BAR ()=8 
DO  endedit 
ENDCASE 

*  BAR  0=1 

*  Select  Task  Organization 

* ;  **  +  *********  +  +  **.*  +  +  ****  +  **  +  ************* **  +  **  +  ********++*,1,**.*..****.*.*.*.* 


(procedure  in  CREATETC . PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  DELTASK. PRG) 


(procedure  in  CREATETA. PRG) 

*i  ****  +  *****  +  **-********  +  ***  +  +  *  +  *  +  **  +  *******  +  +  +  +  ****^  +  *  +  *******  +  +  +  +  *  +  +  +  i. 

PROCEDURE  findta 

SELECT  1 

SET  FILTER  TO 

SET  ORDER  TO  uniqueta  &&  only  view  each  task  order  name  once 
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★ ! 

*  ! 

★  ! 

Procedure: 

FINDTA 

*  ! 

Called  by: 

EDITTASK. PRG 

★  i 

COPT  PRO 

*  ! 

EDIT  PRO 

★  t 

★  j 

DELT_PRO 

*  ! 

Calls : 

SETBROWS . PRG 

★  | 

ENDBROWS . PRG 

*  ! 

★  i 

DISPTASK 

GO  TOP 

ACTIVATE  WINDOW  browser 
DO  se throws 

BROWSE  FIELDS  taskorgnam  NOMENU  NOEDIT  NOAPPEND  NODELETE  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
STORE  taskorgnam  TO  namevar 
DO  disptask 

SET  ORDER  TO  taskorgnam 
statusvar=2 
*  BAR  ()=2 

★I************************************************************-********* 


*  ! 

★  1 

*  t 

Procedure: 

ASSIGNUN 

★  } 

Called  by: 

CRET  PRO 

(procedure 

in 

CREATETA. PRG) 

*  ! 

★  t 

2 

EDIT_PR0 

(procedure 

in 

EDITTASK. PRG) 

*  ! 

*  ! 

Calls : 

DISPTASK 

(procedure 

in 

CREATETA. PRG) 

*  ! 

Uses : 

TEMP. DBF 

★  t 

*  \ 

' 

TTEMP. DBF 

★  I**********************************************************-*-*-********* 

PROCEDURE  assignun 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "Select  Task  Organization  First!" 

@2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 
ELSE 

CLEAR 

@  1,2  SAY  "Please  wait,  preparing  database..." 

*  Prepare  csrclist  database  so  user  can  only  add  units  not  in  Task 
Organization 
SELECT  2 

SET  ORDER  TO  unitname 

REPLACE  ALL  taskorg  WITH  .n.  FOR  taskorg 
REPLACE  ALL  taskorgc  WITH  .n.  FOR  taskorgc 
GO  TOP 
SELECT  1 

SET  ORDER  TO  unitname 
SET  FILTER  TO 

SET  FILTER  TO  taskorgnam=namevar 
GO  TOP 
DO  WHILE  .T. 

*  Check  off  unitnames 

STORE  taskorg->unitname  TO  unitvar 

SELECT  2 

SEEK  unitvar 

IF  FOUND () 

REPLACE  taskorg  WITH  .y. 

END IF  (FOUND!) ) 

GO  TOP 
SELECT  1 
SKIP 


GO  TOP 
SELECT  13 
EXIT 

END IF  ( EOF ( ) ) 

ENDDO  ( . T . ) 

DEACTIVATE  WINDOW  small 

*  Just  look  at  units  not  part  of  this  task  force 
SELECT  2 

SET  FILTER  TO 

SET  FILTER  TO  .NOT.  taskorg 
GO  TOP 

►  IF  EOF ( ) 

CLEAR 

ACTIVATE  WINDOW  small 

?  CHR ( 7 ) 

@1,2  SAY  "No  Un-Assigned  Units," 

■*  @2,2  SAY  "No  Task  Force  Additions!" 

@3,2  SAY  "Press  any  key..." 

WAIT  "" 

CLEAR 

@1,1  SAY  "Please  wait,  resetting..." 

SELECT  2 
SET  FILTER  TO 

REPLACE  ALL  taskorg  WITH  .n.  FOR  taskorg 

SELECT  1 

SET  FILTER  TO 

@3,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (EOF { ) ) 

CLEAR 

*  Select  those  to  be  added 

SET  MESSAGE  TO  "Enter  Y  to  add  units  to  this  Task  Organization,  then  Ctrl-W” 
GO  TOP 

BROWSE  FIELDS  taskorgc, src, unitname  NOAPPEND  NODELETE  NOMENU  FREEZE  taskorgc 
COMPRESS 

SET  MESSAGE  TO  "Please  wait,  updating  files..." 

SELECT  1 

SET  FILTER  TO 

COPY  STRUCTURE  TO  temp 

SELECT  2 

*  Copy  user  selected  records 

>  COPY  TO  ttemp  FOR  taskorgc 

REPLACE  ALL  taskorgc  WITH  .n.  FOR  taskorgc 
REPLACE  ALL  taskorg  WITH  .n.  FOR  taskorg 
GO  TOP 

*  Check  to  see  some  units  had  been  selected 

*  SELECT  16 

USE  ttemp 
IF  RECCOUNT ( ) =0 
SELECT  16 
USE 

ACTIVATE  WINDOW  small 
?  CHR (7) 

@1,2  SAY  "No  Units  Assigned," 

@2,2  SAY  "No  Task  Force  Additions!" 

@3,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
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ELSE 

SELECT  16 
USE 

SELECT  11 
USE  temp 

APPEND  FROM  ttemp 

REPLACE  ALL  taskorgnam  WITH  namevar 
REPLACE  ALL  qty  WITH  1 
SELECT  11 
USE 

SELECT  1 

APPEND  FROM  temp 
ENDIF  ( RECCOUNT ( ) =0 ) 

SELECT  16 
USE  ttemp 
ZAP 

SELECT  16 
USE 

SELECT  11 
USE  temp 
ZAP 

SELECT  11 
USE 

SET  MESSAGE  TO 
ENDIF  (statusvar=l) 

SELECT  1 
SEEK  namevar 
DO  disptask 

*  BAR  ()=3 

*  ! 

*!  Procedure:  ASSIGNU2 

*  ! 

*!  Called  by:  CRET_PRO  (procedure  in  CREATETA. PRG) 

*!  s  EDIT  PRO  (procedure  in  EDITTASK. PRG) 

* !  ~ 

*!  Calls:  DISPTASK  (procedure  in  CREATETA. PRG) 


*  ! 
*  ! 
*  ! 


Uses:  TEMP. DBF 
:  TTEMP. DBF 


* !  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  + 

PROCEDURE  assignu2 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR (7 ) 

@1,2  SAY  "Select  Task  Organization  First!” 

@  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 
ELSE 


CLEAR 

@1,2  SAY  "Please  wait,  preparing  database...” 

*  Prepare  csrclist  database  so  user  can  only  add  units  not  in  Task 
Organization 
SELECT  2 

SET  ORDER  TO  unitname 

REPLACE  ALL  taskorg  WITH  .n.  FOR  taskorg 
REPLACE  ALL  taskorgc  WITH  .n.  FOR  taskorgc 


SELECT  1 

SET  ORDER  TO  unitname 
SET  FILTER  TO 

SET  FILTER  TO  taskorgnam=namevar 
GO  TOP 
DO  WHILE  .T. 

*  Check  off  unitnames 

STORE  taskorg->unitname  TO  unitvar 

SELECT  2 

SEEK  unitvar 

IF  FOUND () 

REPLACE  taskorg  WITH  .  y. 

ENDIF  (FOUNDO) 

GO  TOP 
SELECT  1 
SKIP 
IF  EOF ( ) 

GO  TOP 
SELECT  13 
EXIT 

ENDIF  (EOF ( ) ) 

ENDDO  ( . T . ) 

DEACTIVATE  WINDOW  small 

*  Just  look  at  units  not  part  of  this  task  force 
SELECT  2 

SET  FILTER  TO 

SET  FILTER  TO  .NOT.  taskorg 
GO  TOP 
IF  EOF ( ) 

CLEAR 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "No  Un-Assigned  Units," 

@  2,2  SAY  "No  Task  Force  Additions!" 

@  3,2  SAY  "Press  any  key..." 

WAIT  "" 

CLEAR 

@1,1  SAY  "Please  wait,  resetting..." 

SELECT  2 
SET  FILTER  TO 

REPLACE  ALL  taskorg  WITH  .n.  FOR  taskorg 

SELECT  1 

SET  FILTER  TO 

@3,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  ( EOF ( ) ) 

CLEAR 

*  Select  those  to  be  added 

SET  MESSAGE  TO  "Enter  Y  to  add  units  to  this  Task  Organization,  then  Ctrl-W" 
GO  TOP 

SET  ORDER  TO  src 

BROWSE  FIELDS  taskorgc, src, unitname  NOAPPEND  NODELETE  NOMENU  FREEZE  taskorgc 
COMPRESS 

SET  ORDER  TO  unitname 

SET  MESSAGE  TO  "Please  wait,  updating  files..." 

SELECT  1 
SET  FILTER  TO 


COPY  STRUCTURE  TO  temp 
SELECT  2 

*  Copy  user  selected  records 
COPY  TO  ttemp  FOR  taskorgc 

REPLACE  ALL  taskorgc  WITH  . n.  FOR  taskorgc 
REPLACE  ALL  taskorg  WITH  . n.  FOR  taskora 
GO  TOP 

*  Check  to  see  some  units  had  been  selected 
SELECT  16 

USE  ttemp 
IF  RECCOUNT ( ) =0 
SELECT  16 
USE 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "No  Units  Assigned," 

@  2,2  SAY  "No  Task  Force  Additions!" 

@  3,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
ELSE 

SELECT  16 
USE 

SELECT  11 
USE  temp 

APPEND  FROM  ttemp 

REPLACE  ALL  taskorgnam  WITH  namevar 
REPLACE  ALL  qty  WITH  1 
SELECT  11 
USE 

SELECT  1 

APPEND  FROM  temp 
ENDIF  {RECCOUNT ()=0) 

SELECT  16 
USE  ttemp 
ZAP 

SELECT  16 
USE 

SELECT  11 
USE  temp 
ZAP 

SELECT  11 
USE 

SET  MESSAGE  TO 
ENDIF  (statusvar=l) 

SELECT  1 


SEEK  namevar 
DO  disptask 
*  BAR ()=4 


★  ! 

★  f 

Procedure : 

VIEWTASK 

*  ! 

*  ! 

Called  by: 

EDIT_PRO 

*  t 

★  t 

Calls: 

SETBROW2 . PRG 

★  t 

ENDBROWS . PRG 

*  ! 

*  i 

DISPTASK 

{procedure  in  EDITTASK. PRG) 


(procedure  in  CREATETA. PRG) 


* 


* 


■f 


* 
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> 


i 


PROCEDURE  viewtask 
SELECT  1 

*SET  ORDER  TO  unitname 
SET  FILTER  TO  taskorgnam=namevar 
GO  TOP 
DO  setbrow2 

BROWSE  FIELDS  qty,  csrclist->src, unitname  NOAPPEND  NOMENU  NODELETE  COMPRESS 
FREEZE  qty 
DO  endbrows 
SET  KEY  TO 

SET  ORDER  TO  taskorgnam 
DO  disptask 
*  BAR  ()=5 


*  ! 

★  1 
★  f 

Procedure: 

VIEWTAS2 

★  ! 

*  ! 

Called  by: 

EDIT_PRO 

(procedure  in 

EDITTASK. PRG) 

*  f 

Calls : 

SETBR0W2 . PRG 

★  I 

ENDBROWS . PRG 

*  ! 

★  ! 

DISPTASK 

(procedure  in 

CREATETA. PRG) 

PROCEDURE  viewtas2 
SELECT  1 

SET  FILTER  TO  taskorgnam=namevar 

GO  TOP 

DO  setbrow2 

SET  ORDER  TO  src 

BROWSE  FIELDS  qty, csrclist->src, unitname  NOAPPEND  NOMENU  NODELETE  COMPRESS 
FREEZE  qty 

SET  ORDER  TO  unitname 
DO  endbrows 
SET  KEY  TO 

SET  ORDER  TO  taskorgnam 
DO  disptask 

*  BAR ( ) =6 

*  ! 

*  !  Procedure:  UNASSIGU 

*  ! 

*!  Called  by:  EDIT_PRO  (procedure  in  EDITTASK. PRG) 

* ! 

*!  Calls:  DISPTASK  (procedure  in  CREATETA. PRG) 

*  ! 

*t  +  ****  +  +  •*■  +  **  +  *******■*  +  *  +  **  +  **  +  *  +  *■  +  **■■*•*  +  ***  +  ***  +  ■*.■***  +  ■*  +  *++*  +  **  +  +  ***  +  *** 

PROCEDURE  unassigu 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "Select  Task  Organization  First!" 

@2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusvar=l) 

SELECT  1 

SET  ORDER  TO  taskorgnam 
SET  KEY  TO  namevar 
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SET  MESSAGE  TO  "Enter  Y  for  units  to  DELETE  from  this  Task  Organization,  then 
Ctrl-W" 

GO  TOP 

BROWSE  FIELDS  changestat, csrclist->src, unitname  NOAPPEND  NODELETE  NOMENU  FREEZE 

changestat  COMPRESS 

SET  MESSAGE  TO  "Please  Confirm!" 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "To  delete  these  units  from  the" 

@2,2  SAY  "Task  Organization,  type  YES  " 

@  ROW  (),  COLO  GET  yesnovar  PICTURE  "!!!" 

READ 

SET  MESSAGE  TO 
IF  yesnovar="YES" 

DELETE  FOR  changestat 
PACK 
ELSE 

CLEAR 

@  1,2  SAY  "Units  NOT  deleted!" 

@  2,2 

REPLACE  ALL  changestat  WITH  .n.  FOR  changestat 

GO  TOP 

WAIT 

ENDIF  (yesnovar="YES") 
yesnovar="  " 

DEACTIVATE  WINDOW  small 
GO  TOP 

SEEK  namevar 
DO  disptask 

*  BAR ()=7 

*;+*'**-*-*+**  +  ***  +  **.**  +  ****  +  *  +  **.****.  +  *************.**  +  **  +  i.  +  +  +  <.***  +  +  lk.i.  +  i.  +  +  + 

*  ! 

*!  Procedure:  UNASS I G2 

+ 1 

*■  Called  fay:  EDIT  PRO  (procedure  in  EDITTASK. PRG) 

* !  ~~ 

*!  Calls:  DISPTASK  (procedure  in  CREATETA. PRG) 

*  ! 

PROCEDURE  unassig2 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR (7) 

0  1,2  SAY  "Select  Task  Organization  First!" 

0  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusvar=l) 

SELECT  1 

SET  ORDER  TO  taskorgnam 
SET  KEY  TO  namevar 

SET  MESSAGE  TO  "Enter  Y  for  units  to  DELETE  from  this  Task  Organization,  then 
Ctrl-W" 

GO  TOP 

SET  ORDER  TO  src 

BROWSE  FIELDS  changestat, csrclist->src, unitname  NOAPPEND  NODELETE  NOMENU  FREEZE 

changestat  COMPRESS 

SET  ORDER  TO  unitname 

SET  MESSAGE  TO  "Please  Confirm!  " 


-* 


•¥ 


k 
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ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "To  delete  these  units  from  the" 

@2,2  SAY  "Task  Organization,  type  YES  " 

@  ROW ( ) , COL ( )  GET  yesnovar  PICTURE  " ! ! ! " 

READ 

SET  MESSAGE  TO 
IF  yesnovar=" YES " 

DELETE  FOR  changestat 
PACK 
ELSE 

CLEAR 

@  1,2  SAY  "Units  NOT  deleted!" 

@2,2 

REPLACE  ALL  changestat  WITH  .  n.  FOR  changestat 

GO  TOP 

WAIT 

ENDIF  ( yesnovar="YES " ) 
yesnovar="  " 

DEACTIVATE  WINDOW  small 
GO  TOP 


SEEK  namevar 
DO  disptask 

*  BAR  ()=8 

*  | 

*!  Procedure:  ENDEDIT 

*  l 

*!  Called  by:  EDIT_PRO  (procedure  in  EDITTASK. PRG) 

★  ! 

*  1**  +  **  +  ******  +  *****++******.*********  +  *****.**.*******.*.*..*..*.*..*..*.***..*..*..*..*..*..*..*..*..* 


PROCEDURE  endedit 
CLOSE  DATA 
DEACTIVATE  POPUP 
CLEAR 
RETURN 


*t+  +  +  *  +  +  +  **  +  ********  +  *  +  +  ***  +  *****  +  *******  +  +  ***  +  ****  +  +  +  +  **  +  ****#-*.  +  ****** 
*  ! 

*!  Procedure:  STARTED 

*  ! 

* !  Called  by:  DELUNIT. PRG 

*  !  :  EDITTASK. PRG 

*!  :  DELTASK. PRG 

*!  :  DELPROF. PRG 


★ 

★ 


Calls:  STARTHLP . PRG 


★ 

★ 

★ 

★ 

★ 

* 

* 

★ 

★ 

★ 

★ 

★ 


Uses:  CSRCLIST . DBF 
:  CSRCLINQ. DBF 
:  TASKORG. DBF 
:  ORDERTAS . DBF 
:  CPROFILE. DBF 


MDX  files:  CSRCLIST. MDX 
:  CSRCLINQ. MDX 
:  TASKORG. MDX 
:  ORDERTAS. MDX 
:  CPROFILE. MDX 


* 


PROCEDURE  started 
CLEAR 


DO  starthlp 
SELECT  2 

USE  csrclist  ORDER  unitname 
SELECT  1 


USE  taskorg  ORDER  unitname 

SET  RELATION  TO  unitname  INTO  csrclist 

SET  ORDER  TO  taskorgnam 

*  ! 


* !  Procedure:  DISPTASK 

* ! 

* !  Called  by:  NAMETA 

*!  :  ASSIGNUN 

*  !  :  ASSIGNU2 

* !  :  FINDTA 

* !  :  ASSIGNNA 

*  !  :  VIEWTASK 

*  !  :  VIEWTAS2 

*  !  :  UNAS  S I GU 

*  f  :  UNASS I G2 

*  ! 


(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 


CREATETA. PRG) 
CREATETA. PRG) 
CREATETA. PRG) 
CREATETC . PRG ) 
CREATETC . PRG) 
EDITTASK. PRG) 
EDITTASK. PRG) 
EDITTASK. PRG) 
EDITTASK. PRG) 


*  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  *  +  *  +  +  +  +  +  +  +  +  +  + 
PROCEDURE  disptask 
@  17,2  TO  17,78 

@  21,2  SAY  "Task  Organization:  " 

@  ROW (), COL()  SAY  namevar 

+  i  *******+************  +  *****  +  *+****.**  +  *  +  ****  +  +  ***  +  ******+.  +  +  i.i.+,  +  +  +  + 
*  ! 

* f  Procedure:  DISPUNI 

*  ! 

+  j+  *  +  *  +  +  +  **-A ^  +  **  +  *  +  +  **  +  ***  +  ***  +  **  +  ***  +  +  *  +  ****************i.  +  *i  +  +  #  +  +  + 

PROCEDURE  dispuni 
@  19,2  SAY  "  PARENT  UNIT:  " 

@  ROW ( ) , COL ( )  SAY  unitvar 
RETURN 


•k  « 


EOF:  EDITTASK. PRG 


Procedure  file:  D:\SURE\EDITUNIT.PRG 


Procs  &  Fncts 


STARTUNI 

EDIU_PRO 

SELECTUNI 

SELECTUN2 

CHANGELI 

ADDLINCA 

DELLIN 

CHANGEEH 

ENDUNIT 

EDITSTR 


Set  by:  SRC_PRO 

Calls:  STARTUNI 
:  EDIU_PRO 

Documented  04/16/94  at  11:01 


(procedure  in  SURE.PRG) 

(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT. PRG) 

SNAP!  version  5.00 


*  editunit.prg 

*  creates  master/subordinate  unit  relationships. 

*  PRIVATE  Variables 

**  ^atusvar  controls  user  attempts  to  do  actions  out  of  sequence 

STORE  PROGRAM ()  TO  progvar 

STORE  SPACE (9)  TO  srcvar 

STORE  1  TO  statusvar 

SET  PROCEDURE  TO  instunit 

DO  startuni 

DEFINE  POPUP  ediu_pop  FROM  1,0 

^  l  °F  ediu-P°P  PR0MPT  "Select  Unit  -  Browse’ Unit  List" 

DEFINE  BAR  2  OF  ediu_pop  PROMPT  "Select  Unit  -  By  SRC" 

DEFINE  BAR  3  OF  ediu_pop  PROMPT  "Change  LIN  Quantities" 

DEFINE  BAR  4  OF  ediu_pop  PROMPT  "Add  Equipment  LIN" 

DEFINE  BAR  5  OF  ediu_j>op  PROMPT  "Delete  LIN" 

DEFINE  BAR  6  OF  ediu_pop  PROMPT  "Change  Unit  Strength" 

DEFINE  BAR  7  OF  ediu_pop  PROMPT  "Change  Unit  Echelon" 

DEFINE  BAR  8  OF  ediu _pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  ediu_pop  DO  ediu  pro 
ON  BAR  1  OF  ediu_pop  DO  ediu_barl 
ON  BAR  2  OF  ediu_pop  DO  ediu  bar2 
ON  BAR  3  OF  ediu_pop  DO  ediu~bar3 
ON  BAR  4  OF  ediu_pop  DO  ediu  bar4 
ON  BAR  5  OF  ediu_pop  DO  ediu~bar5 
ON  BAR  6  OF  ediu_pop  DO  ediu_bar6 
ON  BAR  7  OF  ediu^pop  DO  ediu~bar7 
ON  BAR  8  OF  ediu_pop  DO  ediu~bar8 
DO  WHILE  PROMPT ()<> "Return  to  Main  Menu" 

ACTIVATE  POPUP  ediu  pop 
ENDDO  ( PROMPT ( ) <>"Return  to  Main  Menu") 

*  ON  SELECTION  POPOP  EdiUpop  DO  EdiU  pro 

*  ■  Procedure:  EDIU  PRO 


Called  by:  EDITUNIT.PRG 
Calls:  SELECTUNI 


(procedure  in  EDITUNIT.PRG) 
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SELECTUN2 

CHANGELI 

ADDLINCA 

DELLIN 

EDITSTR 

CHANGEEH 

ENDUNIT 


(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 


EDITUNIT. 

EDITUNIT. 

EDITUNIT. 

EDITUNIT. 

EDITUNIT. 

EDITUNIT. 

EDITUNIT. 


+  |***********************  +  *******************************'*’***J 
PROCEDURE  ediu_pro 
DO  CASE 

*  Select  Unit  -  Unit  Name  Order 
CASE  BAR ( )  =  1 

DO  selectuni 

*  Select  Unit  -  SRC  Order 
CASE  BAR()  =  2 

DO  selectun2 

*  Change  LIN  quantities 
CASE  BAR()  =  3 

DO  changeli 

*  Add  LIN  from  list 
CASE  BARO  =  4 

DO  addlinca 

*  Delete  LIN 
CASE  BAR()  =  5 

DO  dellin 

*  Edit  Unit  Strength 
CASE  BARO  =  6 

DO  editstr 

*  Change  Unit  Echelon 
CASE  BAR(.)  =  7 

DO  changeeh 

*  Done 

CASE  BARO  =  8 
DO  endunit 
ENDCASE 

★r***********************************************************' 


★ 

k 

★ 

*• 

★ 

★ 

★ 

k 

k 

★ 

★ 

★ 

k 

★ 

ir 

■k 

•k 

k 

k 

k 

k 


Procedure:  STARTUNI 

Called  by:  EDITUNIT. PRG 
:  CUSTUNIT .  PRG 

Calls:  STARTHLP . PRG 
:  HELP. PRG 

:  ENDUNIT  (procedure  in  EDITUNIT . PRG) 

Uses:  CSRCLIST . DBF 
:  LINLIST . DBF 
:  AMMO RATE . DBF 
:  POLRATE. DBF 
:  SRCLIST. DBF 
:  SRCLINQT . DBF 
:  CSRCLINQ. DBF 
:  ECHELONS . DBF 

MDX  files:  CSRCLIST.MDX 
:  LINLIST. MDX 
:  AMMORATE . MDX 
:  POLRATE. MDX 
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* !  :  SRCLIST.MDX 

* !  :  SRCLINQT . MDX 

*!  :  CSRCLINQ . MDX 

*  !  :  ECHELONS. MDX 

*  ! 

k  f  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk  k  k  k  k  k  ■* rkkkkkkkkkk 

PROCEDURE  startuni 
CLOSE  DATA 
CLEAR 

DO  starthlp 

ON  KEY  LABEL  fl  DO  HELP 

>  SELECT  2 

USE  csrclist  ORDER  unitname 

IF  RECCOUNT ( ) =0 
?  CHR ( 7 ) 

@  15,10  SAY  "You  cannot  use  this  part  of  SURE  until  you  have  created  some 
4  SRC s ! " 

@  18,10 
WAIT 

DO  endunit 
ELSE 

SELECT  33 

USE  linlist  ORDER  lin 
SELECT  8 

USE  ammorate  ORDER  lin 
SELECT  9 

USE  polrate  ORDER  lin 
SELECT  5 

USE  srclist  NOUPDATE 
SELECT  6 

USE  srclinqt  ORDER  lin  NOUPDATE 
SELECT  2 

USE  csrclist  ORDER  unitname 
* SELECT  13 

*SET  RELATION  TO  unitname  INTO  csrclist 
SELECT  14 

USE  csrclinq  ORDER  unitname 
SELECT  25 
USE  echelons 
SELECT  2 

ENDIF  (RECCOUNT ()=0) 

k  J  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


*• 

*  ! 

★  i 

★  i 

Procedure: 

SELECTUNI 

*  l 

*  f 

*  ! 

Called  by: 

EDIU  PRO 
DELU_PRO 

(procedure 

(procedure 

in 

in 

EDITUNIT . PRG) 
DELUNIT. PRG) 

★  r 

★  ! 

★  » 

★  t 

Calls : 

SETBROWS . PRG 
ENDBROWS . PRG 
DISPUNIT 

(procedure 

in 

CREATESR. PRG) 

k^kkkkkkkkkkkkkkkkkkkkkkk-kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

PROCEDURE  selectuni 
SELECT  2 

ACTIVATE  WINDOW  browser 

DO  setbrows 

SET  ORDER  TO  unitname 

BROWSE  NOMENU  NOEDIT  NODELETE  NOAPPEND  FIELDS  src, unitname 
DO  endbrows 
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STORE  unitname  TO  fieldvar 
DEACTIVATE  WINDOW  browser 

SET  MESSAGE  TO 
statusvar=2 
DO  dispunit 

*  !  •*■********  +  +  *•**********■*•*  +  ****  +  ******•***  +  *********  +  *  +  *****.  +  *********** 


*  ! 

★  ( 

*  ! 

Procedure:  SELECTUN2 

★  t 

Called  by:  EDIU  PRO 

(procedure 

in 

EDITUNIT. PRG) 

*  i 

★  f 

:  DELU_PRO 

(procedure 

in 

DELUNIT . PRG) 

*  ! 

Calls :  SETBROWS . PRG 

*  ! 

:  ENDBROWS. PRG 

*  ! 

★  f 

:  DISPUNIT 

(procedure 

in 

CREATESR. PRG) 

PROCEDURE  selectun2 
SELECT  2 

SET  ORDER  TO  src 
ACTIVATE  WINDOW  small 

@1,1  SAY  "Enter  SRC  or  Return  to  Browse" 

@2,5  GET  srcvar 

READ 

DEACTIVATE  WINDOW  small 
IF  srcvarO"  " 


SET  NEAR  ON 
SEEK  srcvar 
IF  EOF ( ) 

?  CHR ( 7 ) 

GO  TOP 

ENDIF  (EOF ( ) ) 

SET  NEAR  OFF 
ENDIF  (srcvarO"  ") 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  NOMENU  NOEDIT  NODELETE  NOAPPEND 
DO  endbrows 

STORE  unitname  TO  fieldvar 
SET  ORDER  TO  unitname 
DEACTIVATE  WINDOW  browser 
SET  MESSAGE  TO 
statusvar=2 
DO  dispunit 

*  Change  LIN  quantities 
* ; **********************++**+********* 


*  ! 

*  ! 

*  ! 

Procedure: 

CHANGELI 

*  ! 

Called  by: 

EDIU  PRO 

★  I 

*  ! 

l 

CUST_PRO 

★  j 

Calls : 

SETBROWS. PRG 

*  ! 

; 

ENDBROWS. PRG 

★  i 

★  ! 

; 

DISPUNIT 

FIELDS  src, unitname 


(procedure  in  EDITUNIT. PRG) 
(procedure  in  CUSTUNIT . PRG) 


(procedure  in  CREATESR. PRG) 


+T******************************* 

PROCEDURE  changeli 
IF  statusvar=l 

ACTIVATE  WINDOW  small 


★ 


4 


4 


•r 


% 
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* 


* 


?  CHR ( 7 ) 

@  1,2  SAY  "You  must  choose  a  unit  first!" 

@2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusvar=l ) 

SELECT  14 

SET  ORDER  TO  lin 

SET  RELATION  TO  lin  INTO  ammorate,  lin  INTO  polrate 
*  limit  csrclist  access  to  records  with  the  same  unit  name 
SET  ORDER  TO  unitname 
SET  KEY  TO  csrclist->unitname 
@  0,25  SAY  "POL-User" 

@  0,55  SAY  "AMMO-User" 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  NOAPPEND  NODELETE  NOMENU  FIELDS  lin, quantity, polrate->lin  nomen 
/28,ammorate->lin_nomen  FREEZE  quantity 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
@  0,25  SAY  "  " 

@  0,55  SAY  " 

SET  MESSAGE  TO 
SET  RELATION  TO 
SET  KEY  TO 


DO  dispunit 

*  Add  LIN  from  database 

* ;  ****■*■*  +  *  +  *  +  +  *** *  +  *  +  *******  +  *****  +  *********.*..*  +  **********  +  +  +  ***  +  ******* 


+  ! 

★  j 

Procedure: 

ADDLINCA 

*  ! 

★  f 

Called  by: 

EDIU  PRO 

★  | 

• 

CUST  PRO 

*  ! 

★  t 

Calls : 

SETBROWS . PRG 

★  j 

: 

ENDBROWS . PRG 

*  ! 

★  » 

• 

DISPUNIT 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  CUSTUNIT. PRG) 


(procedure  in  CREATESR. PRG) 


♦  I*****************.***************.* 

PROCEDURE  addlinca 
IF  statusvar=l 


ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "You  must  choose  a  unit  first!" 

@2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusvar=l ) 

SELECT  33 

SET  ORDER  TO  lin 

*  SET  RELATION  TO  lin  INTO  ammorate,  lin  INTO  polrate 

*  SET  ORDER  TO  uniqueli 

*  @0,25  SAY  "POL-User" 

*  @0,55  SAY  "AMMO-User" 

ACTIVATE  WINDOW  browser 

DO  setbrows 


BROWSE  FIELDS  lin,  polrate->lin_nomen,  ammorate->lin  nomen 
BROWSE  NOMENU  NODELETE  NOAPPEND  FIELDS  lin,  NOMEN 
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DO  endbrows 

DEACTIVATE  WINDOW  browser 

@  0,25  SAY  " 

@  0,55  SAY  " 

STORE  lin  TO  fieldl 
STORE  1  TO  field2 

*  STORE  quantity  TO  field2 
SET  MESSAGE  TO 

ACTIVATE  WINDOW  editor 

@2,2  SAY  "Change  Quantity  to  0  if  you  do  not  want  to  add  this  LIN" 
@  4,10  SAY  "LIN:  "tfieldl 

@  5,10  SAY  "Quantity:  " 

0  5,21  GET  field2 

READ 

SET  RELATION  TO 
IF  field2>0 
SELECT  14 

STORE  src  TO  field3 

*  Check  to  make  sure  LIN  is  not  already  included! 

SEEK  fieldl 
IF  .NOT.  FOUND () 

APPEND  BLANK 
REPLACE  src  WITH  field3 
REPLACE  lin  WITH  fieldl 
REPLACE  quantity  WITH  field2 
REPLACE  unitname  WITH  csrclist->unitname 
ENDIF  (.NOT.  FOUNDO) 

DEACTIVATE  WINDOW  editor 
SET  KEY  TO  csrclist->unitname 
ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  FIELDS  lin, quantity, src, unitname  FREEZE  quantity  NOAPPEND 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
ENDIF  ( field2>0) 

DEACTIVATE  WINDOW  editor 
SELECT  2 
DO  dispunit 

*  Delete  LIN 


* ! 

*  ! 

* ! 

* ! 

Procedure: 

DELLIN 

Called  by: 

EDIU  PRO 

(procedure 

in 

EDITUNIT . PRG) 

*  ! 

*  l 

£ 

CUST_PRO 

(procedure 

in 

CUSTUNIT . PRG) 

★  ! 

Calls : 

SETBROWS . PRG 

*  ! 

ENDBROWS . PRG 

*  ! 

★  ! 

DISPUNIT 

(procedure 

in 

CREATESR. PRG) 

+  1*  +  *******++  +  *  +  +  +  *  +  ****  +  **.*  +  *  +  +  +  *.***********************^***^*^^^^^^.^^ 
PROCEDURE  dellin 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR(7) 

@1,2  SAY  "You  must  choose  a  unit  first!" 

@2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 


« 


* 


-r 
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♦ 


♦ 


* 


ENDIF  ( statusvar=l ) 

SELECT  14 

SET  ORDER  TO  lin 

SET  RELATION  TO  lin  INTO  ammorate,  lin  INTO  polrate 
*  limit  csrclist  access  to  records  with  the  same  unit  name 
SET  ORDER  TO  unitname 
SET  KEY  TO  csrclist->unitname 
@  0,25  SAY  "POL-User" 

@  0,55  SAY  "AMMO-User" 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  FIELDS  lin, quantity, polrate->lin_nomen  /28, ammorate->lin_nomen  FREEZE 
quantity  NOEDIT 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
@  0,25  SAY  " 

@  0,55  SAY  " 

SET  MESSAGE  TO 


*  Make  sure  user  wants  to  delete  LIN 
ACTIVATE  WINDOW  small 
STORE  "  "  TO  MEMVAR 

@1,1  SAY  "LIN:  "+lin 

@2,1  SAY  "POL-User  "+polrate->lin_nomen 
@3,1  SAY  "AMMO-User  "+ammorate->lin_nomen 
@4,1  SAY  "Type  YES  to  Delete" 

@  4,21  GET  MEMVAR  PICTURE  " ! ! ! " 

READ 

CLEAR 

IF  MEMVAR="YES " 


DELETE 

PACK 

WAIT  "LIN  DELETED...  Press  Any  Key" 

ELSE 

WAIT  "LIN  NOT  DELETED. . .  Press  Any  Key" 

ENDIF  (MEMVAR="YES") 

DEACTIVATE  WINDOW  small 
SET  RELATION  TO 
SET  KEY  TO 
DO  dispunit 
*  Change  Unit  Echelon 

+  i  *******  +  ***  +  +  *********  +  ■*•■***■  +  +  +  **  +  ****■*■  +  **  +  *  +  ****  +  +  +  +  *  +  +  ***  +  +  *****  +  *■*■* 


★  ! 

★  ? 

★  f 

Procedure: 

CHANGEEH 

*  ! 

★  ! 

★  ! 

Called  by: 

EDIU  PRO 
CUST_PRO 

★  l 

*  ! 

*  ! 

*  ! 

Calls : 

SETBROWS . PRG 
ENDBROWS . PRG 
DISPUNIT 

★ » 

*  ! 

Uses : 

ECHELONS . DBF 

★  ! 

★  t 

MDX  files: 

ECHELONS. MDX 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  CUSTUNIT. PRG) 


(procedure  in  CREATESR. PRG) 


PROCEDURE  changeeh 
SELECT  25 
USE  echelons 
DO  setbrows 
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SET  MESSAGE  TO  "No  echelon  estimated.  Please  choose  unit  echelon,  then  Enter 
Select . " 


ACTIVATE  WINDOW  browser 

BROWSE  NOEDIT  NOMENU  NOAPPEND  NODELETE  FIELDS  echelon 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
SELECT  2 

REPLACE  echelon  WITH  echelons->echelon 
DO  dispunit 

*  Return  to  previous  menu 


*  ! 

*  ! 

*  ! 

Procedure: 

ENDUNIT 

+  | 

Called  by: 

STARTUNI 

*  ! 

EDIU  PRO 

*  ! 

*  ! 

CUST  PRO 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  CUSTUNIT. PRG) 


+  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  ^  +  +  + 

PROCEDURE  endunit 
CLEAR 

DEACTIVATE  POPUP 
CLOSE  DATABASES 
RETURN 


* . Edit  Unit  Strength 


*  ! 

★  f 

*  ! 

Procedure: 

EDITSTR 

*  t 

★  I 

Called  by: 

EDIU_PRO 

(procedure 

in  EDITUNIT. PRG) 

★  f 

★  t 

Calls: 

DISPUNIT 

(procedure 

in  CREATESR. PRG) 

*i  *********  +  +  +  ****  +  **  +  **  +  +  ***********  +  +  +  **.  +  +  *********  +  ***.**  +  ***  +  +  *  +  ^  +  i)t 

PROCEDURE  editstr 
IF  statusvar=l 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@  1,2  SAY  "You  must  choose  a  unit  first!" 

@  2,2  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusvar=l) 

ACTIVATE  WINDOW  small 
SELECT  2 

@2,2  SAY  "Enter  Unit  Strength:  " 

@  2,24  GET  strength  PICTURE  "999999" 

READ 


DEACTIVATE  WINDOW  small 
DO  dispunit 

*  Display  record  information 

*  |  *  +  ***  +  +  ******  +  ********* +  +  +  +  +  *  +  +  +  +  +  +  +  ^  + 

*  ! 

*!  Procedure:  DISPUNIT 

*  ! 


Called  by:  COPYSRC 
:  COPYCSRC 
:  ADDDATA 
:  SELECTUNI 


(procedure 

(procedure 

(procedure 

(procedure 


in  CREATESR. PRG) 
in  CREATESR. PRG) 
in  CREATESR. PRG) 
in  EDITUNIT. PRG) 


*  t 

*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  i 


SELECTUN2 

(procedure 

in 

CHANGE LI 

(procedure 

in 

ADDLINCA 

(procedure 

in 

DELLIN 

(procedure 

in 

CHANGEEH 

(procedure 

in 

EDITSTR 

(procedure 

in 

UN IT DATA 

(procedure 

in 

EDITUNIT. PRG) 
EDITUNIT.  PRG; 
EDITUNIT. PRG) 
EDITUNIT. PRG) 
EDITUNIT. PRG) 
EDITUNIT. PRG) 
CUSTUNIT. PRG) 


PROCEDURE  dispunit 
SELECT  2 
@  16,1  TO  16,78 

@  18,5  SAY  "SRC:  "+csrclist->src 

@  20,5  SAY  "Unit:  "+unitname 

@  21,5  SAY  "Echelon:  "+echelon 

IF  echelon=" COMPANY" 

@  ROW  ( )  ,  COLO  SAY  "  Level  or  Below" 
ELSE 

@  ROW ( ) ,  COL ( )  SAY  " 

ENDIF  (echelon=" COMPANY") 

*:  EOF:  EDITUNIT. PRG 


r-Jr-je+rjr+r-kir-kjr'tr-ir-b-te  +  -k-x--irieJe’k-icjr'k'ir-k-k-jr-4r-je+--k-)c-ir-ir-ir4r  +  -±-ir-Jrir-Jry 


Program:  D:\SURE\ENDBROWS.PRG 


Called  by 


HELPNDX . PRG 

EDITHELP . PRG 

COPYSRC 

COPYCSRC 

VIEWUNIT 

ADD DATA 

SELECTUNI 

SELECTUN2 

CHANGELI 

ADDLINCA 

DELLIN 

CHANGEEH 

FINDTA 

VIEWTASK 

VIEWTAS2 

NEWPROFI 

VIEW PROF 

SELEPROF 

CHANGEAP 

CHANGEAC 

CHANGEI 

CHANGECI 

CHANGEH2 

CHANGEME 

SELECTPRO 

NEWCUSPR 

VIEWCUSP 

EDITCUSP 

DELCUSPR 

VIEWORDE 

1PROONE 

VIEWTOP 

FINDPRO 

GETORDER 

1STRONE 

PHASEBYS 

VIEWSTR 

GET SRC 

BROWHELP 


(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 


in  CREATESR. PRG) 
in  CREATESR. PRG) 
in  CREATESR. PRG) 
in  CREATESR. PRG) 
in  EDITUNIT. PRG) 
in  EDITUNIT. PRG) 
in  EDITUNIT. PRG) 
in  EDITUNIT. PRG) 
in  EDITUNIT. PRG) 
in  EDITUNIT. PRG) 
in  CREATETC . PRG) 
in  EDITTASK. PRG) 
in  EDITTASK. PRG) 
in  CREATEPR. PRG) 
in  CREATEPR. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  DELPROF. PRG) 
in  CRECUSPR. PRG) 
in  CRECUSPR. PRG) 
in  CRECUSPR. PRG) 
in  CRECUSPR. PRG) 
in  CREATEOR. PRG) 
in  CREATEOR. PRG) 
in  CREATEOR. PRG) 
in  CREATEOR. PRG) 
in  EDITORDE. PRG) 
in  EDITORDE. PRG) 
in  EDITORDE. PRG) 
in  EDITORDE. PRG) 
in  SYSREP . PRG) 
in  PRNTHELP . PRG) 


Documented  04/16/94  at  11:02  SNAP!  version  5.00 

ON  KEY  LABEL  ctrl-m 
ON  KEY  LABEL  HOME 
ON  KEY  LABEL  end 
SET  MESSAGE  TO 

*:  EOF:  ENDBROWS . PRG 
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n 


* 


■k 

★ 

k 

★ 

★ 

•k 

k 

★ 

★ 


Program:  D:\SURE\HELP.PRG 

Called  by:  SURE.PRG 

:  STARTHLP . PRG 

:  STARTUNI  (procedure  in  EDITUNIT . PRG) 

Calls:  MEMOPAGRO  (function  in  MEMOPAGR. PRG) 

Documented  04/16/94  at  11:01  SNAP!  version  5.00 

v******************************************************************** 


*  help.prg 

SET  EXACT  ON 

IF  SEEK (progvar, "HELP") 

IF  WINDOW ()<>"  " 

ACTIVATE  SCREEN 
ENDIF  (WINDOW ()<>"  ") 

?  memopagr (help->notes, 10, 1, 22,78) 
@22,0  SAY  "  " 

ENDIF  (SEEK (progvar, "HELP" ) ) 

SET  EXACT  OFF 
RETURN 

*:  EOF:  HELP.PRG 


* 
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Program:  D:\SURE\HELPNDX.PRG 
Called  by:  HELP_PRO  (procedure  in  SURE.PRG) 


Calls:  SETBROWS . PRG 
:  ENDBROWS . PRG 
:  MEMOPAGRO 

Documented  04/16/94  at  11:02 


(function  in  MEMO PAGR. PRG) 

SNAP!  version  5.00 


*  helpndx.prg 
SELECT  39 

SET  ORDER  TO  subject 
GO  TOP 

ACTIVATE  WINDOW  browser 
DO  setbrows 


BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  help->sub j ect 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
?  memopagr (help->notes, 1, 1,22,78) 

@22,0  SAY  "  " 

SET  ORDER  TO  PROGRAM 
*:  EOF:  HELPNDX.PRG 


* 


♦ 


* 
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a-.***********************-*--*.********.*.*.*-**********************  -A-***-*.****** 

Procedure  file:  D:\SURE\INSTORDE.PRG 
Procs  &  Fncts : 


0RDS_BAR1 

ORDS_BAR2 

0RDS_BAR3 

0RDS_BAR4 

ORDS_BAR5 

T0MP_BAR1 

TOMP_BAR2 

T0MP_BAR3 

T0MP_BAR4 

T0MP_BAR5 

TOMP_BAR6 

0RDT_BAR1 

ORDT_BAR2 

0RDT_BAR3 

ORDTJ3AR4 

ORDT_BAR5 

ORDT_BAR6 

ORDT_BAR7 

ORDT_BAR8 

DORD_BARl 

DORD_BAR2 

DORD_BAR3 

STRE_BAR1 

STRE_BAR2 

STRE_BAR3 

STRE_BAR4 

STRE_BAR5 

STRE  BAR6 


Documented  04/16/94  at  11:02  SNAP!  version  5.00 

**  instorde.prg 

*  "Create  Order" 

*]************************************-k******-ir********-k-k-ir************ir-ir 

*  ! 

*!  Procedure:  ORDS  BARI 

* !  — 

*\**  +  *  +  +  +  *  +  +  +  +  +  +  +  +  +  *'k*  +  +  -k  +  +  -k  +  +  -k  +  +  +  +  +  -tr  +  -i'  +  ie-kir  +  -l'  +  1r  +  -lriHt  +  ir-k  +  -k-ifk++-k*  +  +  +  ie-M  +  +  -k  + 

PROCEDURE  ords_barl 
@  10,1  CLEAR  TO  16,79 
0  10,1 
TEXT 

You  create  orders  with  up  to  nine  phases,  then  assign  Task  Organizations 
and  Parameter  Sets.  Order  numbers  may  be  a  combination  of  numbers  and 
letters,  but  must  be  unique,  and  cannot  be  changed  later.  After  creating 
the  order  and  assigning  Task  Organizations,  you  will  assign  Parameter  Sets 
to  each  Task  Organization  for  each  Phase  of  the  Order. 

ENDTEXT 

RETURN 

*  "View  Orders" 

*i  **++**  +  *  +  ******  +  +  ***  +  +  **++****  +  *  +  ********+.*****  +  *  +  +  +  +  i  +  +  +  +  +  +  +  +  ik.>  +  A^  +  + 

*  ! 

*!  Procedure:  ORDS  BAR2 

*  i 

PROCEDURE  ords  bar2 
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@  10,1  CLEAR  TO  16,79 

@  10,1 

TEXT 

View  previously  created  orders. 
ENDTEXT 


*  "Assign  Task  Organizations" 

*  !  ***  -A-***************************************************************** 

*  ! 

*1  Procedure:  ORDS__BAR3 

*  ! 

*  f******-*************************.*.*****.*.*.*****************************^ 

PROCEDURE  ords_bar3 
0  10, 1  CLEAR  TO  16,79 
0  10,1 
TEXT 

Each  Order  must  have  one  or  more  Task  Organizations  assigned. 

ENDTEXT 

*  "Assign  Mission  Profiles  to  Task  Organization  Phases" 

*1**  +  *  +  +  *  +  ********  +  *******  +  *  +  +  ****************^.**^*^^*^***.*^^^.^.^^^^^.^^^ 

*  ! 

*!  Procedure:  ORDS  BAR 4 

*  ! 

*  i  +  ******  +  *********************  +  ******* ***■*■**•**■**•***  +  ****  +  ***•**  +  *•**■*•■*  +  * 

PROCEDURE  ords_bar4 
@  10,1  CLEAR  TO  16,79 
0  10,1 
TEXT 

Each  Task  Organization  must  have  an  Parameter  Set  assigned  for 
each  Phase  of  the  Order. 

ENDTEXT 

*  "DONE!” 

*  ! 

*!  Procedure:  ORDS  BAR5 

*  ! 

+  [**  +  ******  +  +  **  +  *  +  ***  +  *******  +  *>*****  +  **  +  ***#  +  **  +  +  +  +  ifc.it.ili.5lr;ik.ilr<.it  +  +  ili.iifc.  +  +  +  +  :k  + 
PROCEDURE  ords_bar5 
0  10,1  CLEAR  TO  16,79 
8  10,1 
TEXT 

Return  to  Main  Menu. 

ENDTEXT 


*  Assign  Profiles 

*  "Assign  one  Profile  to  all  Task  Organizations  and  Phases  this  Order" 

*  | 

* !  Procedure:  TOMP  BARI 

* !  ~ 


*!*********■*■****************  +  *******************  +  *  +  *****************  +  *  + 
PROCEDURE  tomp_barl 
0  10,1  CLEAR  TO  16,79 
0  10,1 
TEXT 


You  can  automatically  assign  a  single  Profile  to  all  Task  Organizations 
for  all  Phases  of  this  Order.  This  may  be  a  useful  way  to  start  even 
if  only  a  majority  of  Task  Organizations  use  a  common  Operational  Profile 
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p 


4 


m 


* 


for  a  significant  number  of  Phases. 

ENDTEXT 

*  "Assign  a  Profile  to  one  Task  Organization  for  all  Phases  this  Order" 

★  | 

*\  Procedure:  TOMP_J3AR2 

★  | 

■k  |  k-k-k-k-k'k'k'k-k'k-k'k-k'k-k-k-k-k-*e-k-k-k-k-k-k-k-ie-ir-ic-k-k-k-k-k'k-k-k-k-k'k-k'k-k-k-k--k-k-k-k-k-kk-k-k-k-k-k-k'kk-k-kk-k-k-k-k-k-k 

PROCEDURE  tomp_bar2 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

ENDTEXT 

*  "Assign  a  Profile  to  all  Task  Organizations  for  a  single  Phase  this  Order 

*  ! 

*!  Procedure:  TOMP_BAR3 

★  ! 

PROCEDURE  tomp_bar3 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Assign  a  single  Profile  to  all  Task  Organizations. 

ENDTEXT 

*  "Assign  Profiles  to  a  Task  Organization  Phase  by  Phase  for  this  Order" 

*  J  +  ★  +  ★  + 

*  t 

*  !  Procedure:  TOMP_BAR4 

*  | 

“if  ^^^^^^^'k'k^t’k'k'k'k'ir'k'k'k'k'k'ir'k'k-A'h'k’-ie-ie-M'k'k'k'k'k’k'k'k^r'k'k'k^r'k^e’k'ir'k'k'k'A'k'k'k'k'k'k'k'k'k'ir'k'ir’k'k’k'k’ir'k'k'k 

PROCEDURE  tomp_bar4 
0  10,1  CLEAR  TO  16,79 
0  10,1 
TEXT 

Assign  specific  profiles  to  a  single  Task  Organization  Phase  by  Phase. 
ENDTEXT 

*  "View  this  Orders  Task  Organizations  and  Profiles  by  Phase" 

*  l 

* !  Procedure:  TOMP_BAR5 

*  ! 

+I********************************************-************************* 

PROCEDURE  tomp_bar5 
0  10,1  CLEAR  TO  16,79 
0  10,1 
TEXT 

View  the  Parameter  Sets  assigned  to  Task  Organizations. 

ENDTEXT 

*  "Return  to  Previous  Menu" 

★t********************************************************************* 

*  t 

*!  Procedure:  TOMP  BAR 6 


* i *****************************************************,*** 

PROCEDURE  tomp_bar6 
8  10, 1  CLEAR  TO  16,79 
8  10,1 
TEXT 

Return  to  the  previous  menu. 

ENDTEXT 


■k 

★ 

★ 

■k 

★ 


Edit  Order 
"Get  Order" 


t 


-x  -*•  ■» 


Procedure:  ORDT  BARI 


PROCEDURE  ordt  barl 
8  11,1  CLEAR  TO  17,79 
8  11,1 
TEXT 


You  must  select  an  Order  before  making  any  changes. 
ENDTEXT 


*  "View/Delete  Task  Organizations" 

*  ! 

*  !  Procedure:  ORDT  BAR2 

* !  ~ 


PROCEDURE  ordt_bar2 
0  11,1  CLEAR  TO  17,79 
0  11,1 
TEXT 


View  the  Task  Organizations  assigned  to  an  Order  and,  optionally,  delele 
them. 


ENDTEXT 


*  "Assign  Task  Organizations" 

*  ! 

*  ! 

*  ! 


Procedure:  ORDT  BAR3 


PROCEDURE  ordt_bar3 
0  11,1  CLEAR  TO  17,79 
0  11,1 
TEXT 


Assign  additional  Task  Organizations  to  an  Order.  Only  Task  Organizations 
not  currently  assigned  will  be  shown. 

ENDTEXT 


★ 

★ 

★ 

★ 

★ 

★ 


"Assign  Mission  Parameter 

I************************** 

!  Procedure:  ORDT_BAR4 

!  *****  +  ******************** 


Sets  to  Task  Organization  Phases" 

+  ****  +  ************  +  **********  +  +  Jl.**  +  +  +  i.*  +  +  it.+ 


PROCEDURE  ordt  bar4 
0  11,1  CLEAR  TO  17,79 
0  11,1 
TEXT 


t 


i 


* 
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Each  Task  Organization  must  have  a  Parameter  Set  assigned  for  each  Phase 
of  the  order.  Use  this  option  to  assign  or  change  Parameter  Sets. 
ENDTEXT 


*  "Assign  Strength  Percentages  to  Task  Organization  Phases" 
★I********************************************************************* 

*  ! 

*1  Procedure:  0RDT_BAR5 

*  ] 

*i*******+*+****+*+**********+*.*******.****+**+**+*+**+****++++++*++++++ 

PROCEDURE  ordt_bar5 
@  11,1  CLEAR  TO  17,79 
@  11,1 
TEXT 

The  equipment  and  personnel  of  each  Unit  in  each  Task  Organization  are 
used  by  SURE  as  100%.  You  may  change  this  setting  for  each  Task 
Organization  for  each  Phase  of  the  Order.  Any  changes  you  make  will 
increase  or  decrease  all  logistics  estimates  proportionally.  For  example, 
decrementing  strength  from  100%  to  90%  for  a  Phase  will  reduce  all  estimates 
by  10%. 

ENDTEXT 

*  "Edit  Order  Description,  Phases,  and  Phase  Lengths" 

*  ! 

*!  Procedure:  ORDT  BAR 6 

*  ! 

*;*******************  +  *****  ■*•*******  +  ******  +  ************  +  ******  +  *•******* 
PROCEDURE  ordt_bar6 
3  11,1  CLEAR  TO  17,79 
8  11,1 
TEXT 

While  you  may  change  the  Order  Description,  the  number  of  Phases,  and  the 
length  of  each  Phase,  you  must  also  go  back  and  assign  Parameter  Sets  for 
each  Task  Organization  in  the  Order  if  you  increase  the  number  of  Phases. 
ENDTEXT 


★ 


nSave  and  Edit  Another” 

*  +  *  +  +  +  *  +  +  *  +  *  +  +  +  +  +  +  +  +  *  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  *  +  +  *  +  + 


*  i 


*  ! 
*  ! 


Procedure:  ORDT  BAR7 


PROCEDURE  ordt_bar7 
8  11,1  CLEAR  TO  17,79 
@  11,1 
TEXT 

Finalize  order  and  prepare  to  create  another  one. 
ENDTEXT 


*  "Return  to  Main  Menu" 

*[***********************-)r**-lr***ir****ir-tr*ir*******-tr-lr-),*-lr-lr-tr-lr-tr*******-k**-t,*ir-k 

*  ! 

*!  Procedure:  ORDT  BAR8 

* !  — 

+  i  *********+***************+**  +  *******************i,*t*il,i  +  t  +  llt,4  +  t,4Jr 

PROCEDURE  ordt_bar8 
8  11,1  CLEAR  TO  17,79 
8  11,1 
TEXT 
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Return  to  the  Main  Menu. 

ENDTEXT 

*  Delete  Order 

*  Get  Order 

*  {★****  +  *★******★***★★★★********  +  ★**★******  +  *  +  ★********  +  ***★***★*******. 

*  ! 

*1  Procedure:  DORD_BARl 

★  i 

*\ I  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  *  +  +  + 

PROCEDURE  dord_barl 
@  11,1  CLEAR  TO  17,79 
@  11,1 
TEXT 

Select  an  Order  to  Delete. 

ENDTEXT 

★  I*****************************************************.*****.****.**.***** 

★  ! 

*!  Procedure:  DORD  BAR2 

*  !  “ 

*  i***********************************************************.*.********* 

PROCEDURE  dord_bar2 

*  Delete  Order 

8  11,1  CLEAR  TO  17,79 
@  11,1 
TEXT 

Delete  selected  Order.  If  you  delete  an  Order,  you  will  not  be 
able  to  undelete  it  and  get  it  back! 

ENDTEXT 

it!***********************************.*******************.********.******* 

*  i 

*  !  Procedure :  DORD  BAR3 

*■ 1  — 

*  i  A******************************** *■  +  *  +  ***  +  +  *★*  +  +  +  *■*************  +  +  *  +  *** 

PROCEDURE  dord_bar3 
*Return  to  Main  Menu 
8  11,1  CLEAR  TO  17,79 
8  11,1 
TEXT 

Return  to  the  Main  Menu. 

ENDTEXT 

*  Strength  Percentages 

*  BAR  1  OF  stre_pop  PROMPT  ; 

"Assign  one  Strength  to  all  Task  Organizations  and  Phases  this  Order” 

*  j 

*!  Procedure:  STRE  BARI 

*  ! 

PROCEDURE  stre_barl 
8  11,1  CLEAR  TO  17,79 
8  11,1 
TEXT 

If  all  most  Task  Organizations  will  be  at  the  same  percent  strength 
for  all  or  most  of  the  Phases  in  this  Order,  use  this  option  to  set  a 
single  strength  throughout.  You  may  adjust  individual  cases  afterwards 
with  other  options  on  this  menu. 


ENDTEXT 

RETURN 

*  BAR  2  OF  stre_pop  PROMPT  ; 

*  "Assign  a  Strength  to  one  Task  Organization  for  all  Phases  this  Order" 

★  ! 

*!  Procedure:  STRE_BAR2 

★  ! 

PROCEDURE  stre_bar2 
@  11,1  CLEAR  TO  17,79 
@  11,1 
TEXT 

If  one  Task  Organization  will  be  at  a  particular  strength  for  all  or  most 
of  the  Phases  in  this  Order,  use  this  option  to  set  a  single  strength 
throughout  the  order  for  that  Task  Organization. 

ENDTEXT 

RETURN 

*  BAR  3  OF  stre_pop  PROMPT  ; 

*  "Assign  a  Strength  to  all  Task  Organizations  for  a  single  Phase  this 
Order" 

Sr  | 

*!  Procedure:  STRE_BAR3 

*  ! 

PROCEDURE  stre_bar3 
@  11,1  CLEAR  TO  17,79 
@  11,1 
TEXT 

If  all  or  most  Task  Organizations  will  be  at  a  particular  strength  during 
a  particular  Phase  of  this  Order,  use  this  option  to  set  that  strength  for 
all  Task  Organizations  for  that  Phase  only. 

ENDTEXT 

RETURN 

*  BAR  4  OF  stre_pop  PROMPT  ; 

*  "Assign  Strengths  to  a  Task  Organization  Phase  by  Phase  for  this  Order" 

*  f 

*!  Procedure:  STRE_BAR4 

*  ! 

PROCEDURE  stre_bar4 
@  11,1  CLEAR  TO  17,79 
@  11,1 
TEXT 

Use  this  option  to  pick  one  Task  Organization  during  one  Phase  of  this 
Order  and  set  its  strength  for  that  Phase  only. 

ENDTEXT 

RETURN 

*  BAR  5  OF  strejpop  PROMPT  ; 

*  "View  this  Orders  Task  Organizations  and  Strengths  by  Phase" 

*  \  ++  +  +  +  +  +  +  +  ir  +  -k  +  +  ie  +  +  *  +  ir'k-k-kir-k-k-ir-k-k-k-it-kirie-k-k'k-k-k-k-le-?r-kie-fr-k-k'k-k-k-k-k-k-k-ir-k-ir-k-k-k-k')r-k'kiir-tr-jr+r-ir 

*  * 

*\  Procedure:  STRE_BAR5 

*  ! 

+ 1  *******+*++***+*+++****+*++****+++********+**+*****++++*+**+*******++ 
PROCEDURE  stre_bar5 
@  11,1  CLEAR  TO  17,79 
@  11,1 


TEXT 

f 

View  all  Task  Organizations  and  their  strengths  in  this  Order. 

ENDTEXT 

RETURN 

*  BAR  6  OF  stre_pop  PROMPT  "Return  to  Previous  Menu" 

*■********  +  *************  +  ************.*.**  +  **********.****.*****, +  + 

*  ! 

*  !  Procedure:  STRE  BAR 6 

*  ! 

+  ]*  +  +  +  *******  +  ’*r  +  +  -k-k*  +  4r  +  -k  +  -k’k  +  +  +  -irie  +  -k  +  -it-k-ie  +  +  +  -ic  +  +  +  +  +  +  *-k-k  +  'k-tr-k*-ir-k-k  +  -tr+4r*ir-kir-k  +  4:  + 

PROCEDURE  stre  bar6 

@  11,1  CLEAR  TO  17,79  # 

@  11,1 

TEXT 

Return  to  the  previous  menu. 

ENDTEXT 

RETURN  ^ 

*:  EOF:  INSTORDE . PRG 


¥ 
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*:  Procedure  file:  D:\SURE\INSTPHLP.PRG 

★  * 

*:  Procs  &  Fncts :  PHEL_BAR1 

*  :  :  PHEL_BAR2 

*:  :  PHEL_BAR3 

★  • 

*:  Documented  04/16/94  at  11:02  SNAP!  version  5.00 

+  +  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

★  ! 

*!  Procedure:  PHEL_BAR1 

★  | 

*i*+++*+***+*+**+*+*++**+**++***.**+*******+*****+**+**++**+****.***+***+ 

PROCEDURE  phel_barl 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

You  can  print  any  one  of  the  context-sensitive  Help  screens. 

ENDTEXT 

RETURN 

+  I**************************.*******************************.*.*********** 
*  ! 

*!  Procedure:  PHEL_BAR2 

*  ! 

*!******  +  •*■****•****  +  ***********  +  ******■**  +  *******  +  **  +  ********  +  ******  +  *  +  ** 

PROCEDURE  phel_bar2 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

You  can  print  all  of  the  Help  screens  in  order. 

ENDTEXT 

*  i****************-***************************************************** 

*  ! 

* !  Procedure :  PHEL_BAR3 

*  ! 

*!**■*•**■★**■*  *★*****★★★★★★★★★*  +  ★★*★*★★★******★■*■*****  +  ***■*.  +  *  +  +  ***.*  +  *.*.*.*..*.** 

PROCEDURE  phel_bar3 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

ENDTEXT 


*:  EOF:  INSTPHLP.PRG 
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Ar 

★ 


Procedure  file:  D:\SURE\INSTPROF.PRG 


A- 

Ar 

★ 

★ 

A 

A 

★ 

★ 

+ 

A 

+ 

A 

A 

★ 

A 

A 

A 

Ar 

A 

Ar 


Procs  &  Fncts :  CREP_BAR1 
:  CREP_BAR2 
:  CREP_BAR3 
:  EDIP_BAR1 
:  EDIP_BAR2 
:  EDIP_BAR3 
:  EDIP_BAR4 
:  EDI P_BAR5 
:  EDIP_BAR6 
:  EDIP_BAR7 
:  EDIP_BAR8 
:  EDIP_BAR9 
:  DELP_BAR1 
:  DELP_BAR2 
:  DELP_BAR3 
:  CRCP_BAR1 
:  CRCP_BAR2 
:  CRCP_BAR3 
:  CRCP_BAR4 
:  CROP  BAR6 


Documented  04/16/94  at  11:02 


SNAP!  version  5.00 


*  instprof.prg  Instructions  for  Profile  submenu 

*  Create 

* ! 

*!  Procedure:  CREP  BARI 

* !  ~ 

+  1+  *  +  ***  +  +  *  +  **  +  ***  +  +  +  ***  +  *********.***.*.**********^*^^^^^^^.^^^^^^.^^^^^^^^ 
PROCEDURE  crep_barl 
@  10, 1  CLEAR  TO  16,79 
@  10,1 
TEXT 


You  will  assign  a  name,  description.  Area  Profile,  ammo  comsumption 
posture  combat  intensity  and  ration  cycle  to  a  single  Parameter  Set. 
This  Parameter  Set  can  be  assigned  by  Phase  within  an  Order  to  one 
or  more  Task  Organizations, 


ENDTEXT 

RETURN 

*  View 

AfAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

*  ! 

Procedure:  CREP  BAR2 

★  ! 

AJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 

PROCEDURE  crep_bar2 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

View  previously  created  Parameter  Sets. 


ENDTEXT 

RETURN 


*  !  Procedure:  CREP_BAR3 

*  ! 

*  |  ke-kkr'k'k'kkkc'k-k’k-k'k-k'k-k-k'ir’k’k'kkr-k-kkrk-k'k-k-k'k-k-k-k-k'k-k'kkk  *■  -k  k  k  k  kk-kkkkk-kk  ■irkk-kkk-k'kkkk-k'k-k-k 

PROCEDURE  crep_bar3 
0  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Return  to  Main  Menu. 

ENDTEXT 

RETURN 

*  Edit  Profile 

*  "Select  Parameter  Set" 

*  J  'k'k'k'k’-k-k-k-k-k-k'k-k'k'-k-k-k-k-kkr-k-k-k-k-k-ie-k'k’ie-k'ir’k-k'kk-k-k-ie-k-k-k'k-k-k-k-k-k-k-k-k-k’k-k  k'kkr'k-kkt-k-k-k-k-k-k-k-k-k-k'k 

*  ! 

*!  Procedure:  EDIP_BAR1 

*  ! 

"k  |  "k’k'k-k'k-k-k-kk'k'k'k-k'k-k'k'k'k'k'k-k'k'kk-k'k-k-k'k'k'k-k-k'k-k'kk-k'k-k'k-k'k'k-k-k-k-k-kk-k'k  kk-kk-k’kk-kk'k-k'k'k'k-k-k'k 

PROCEDURE  edip_barl 
0  13,1  CLEAR  TO  17,79 
0  13,1 
TEXT 

Select  a  Parameter  Set. 

ENDTEXT 

RETURN 

*  "Change  Area  Profile" 

★J********************************************************************* 

★  ! 

*!  Procedure:’  EDIP_BAR2 

★  t 

*;+**  +  +  *********•***  +  *********  +  +  *  +  *.****  +  *********  +  +  **  +  **  +  **************  + 
PROCEDURE  edip_bar2 
0  13,1  CLEAR  TO  17,79 
0  13,1 
TEXT 

Assign  a  different  Area  Profile  to  the  selected  Parameter  Set. 


ENDTEXT 

RETURN 

*  "Change  Ammo  Consumption  Posture" 

*  J*******************************************************************-*-* 

*  ! 

*!  Procedure:  EDIP_BAR3 

★  ! 

+r +****************************.*****************++******************+** 

PROCEDURE  edip_bar3 
0  13,1  CLEAR  TO  17,79 
8  13,1 
TEXT 

Assign  a  different  Ammunition  Consumption  Posture  to  the  selected 
Parameter  Set. 


ENDTEXT 

RETURN 


*  "Change  Intensity" 

★  » 

*!  Procedure:  EDIP_BAR4 

* !  — 

*  J  *  +  ★***  +  ★★*★***  +  ***★********  +  *+  *  +  *  +  +  +  ***-**  +  +  **.*-*.******  +  ********'****  +  *■■*• 
PROCEDURE  edip  bar4 

@  13,1  CLEAR  TO  17,79 

@  13,1 

TEXT 

Assign  a  different  combat  Intensity  to  the  selected  Parameter  Set. 

ENDTEXT 

RETURN 

*  "Change  Intensity  Factor” 

*!****★★*★★★★★★★★★**★*****★*+*****+*+*+***+*****★****+****+**★****+*★*★ 

*  ! 

*!  Procedure:  EDIP_RAR5 

★  I  “ 

★  ^★★★★*★*★*★****★★*  +  *★**★***  +  ****  +  +  ★*^^*-*.*  +  *■★*  +  ★•*■★•*■★■*■^k•★★★★^^•*■★*■★-*■★^r■*■^lr*■•*•)lr 

PROCEDURE  edip_bar5 
8  13,1  CLEAR  TO  17,79 
@  13,1 
TEXT 

Change  the  standard  Intensity  Factor.  The  Intensity  factor  is 
normally  a  standard  percentage  based  on  the  combat  Intensity  that 
is  selected.  Adjusting  the  Intensity  factor  allows  you  to  ’fine-tune’ 
you  usage  projections,  but  makes  them  non-doctrinal .  Use  cautiously! 
ENDTEXT 
RETURN 

*  "Change  Class  I  Paramenters" 

★  r  +  ★★  +  ***★  +  *★-*•★***★*★*★★  +  ******  +  **-*■**★***★***★****  +  *****★*  +  ★***  +  **  ***** 

★  t 

Procedure:  EDIP  BAR6 

*  i  ~ 

*i+*+**+*****+*++**++****+***+**.**1.*********1i(jr+>.+*A.*+>lk*jriti.#1.+,kA.ll.A.A+^:iti. 

PROCEDURE  edip_bar6 
@  13, 1  CLEAR  TO  17,  79 
@  13,1 
TEXT 

Three  meal  profiles  are  assigned  for  each  1  day  length  of  the  order. 
You  can  select  a  different  ration  type  for  each  meal. 

ENDTEXT 

RETURN 

*  "Change  Water  Consumption  Parameters" 

*  ! 

*!  Procedure:  EDIP  BAR7 

* !  — 

PROCEDURE  edip_bar7 
8  13,1  CLEAR  TO  17,79 
8  13,1 
TEXT 

Assign  a  different  water  consumption  parameter  to  the  selected 
Parameter  Set. 


ENDTEXT 

RETURN 
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'Change  Class  VTII  Medical , Parameters " 


*■•*■  +  +  +  ■*■■*■•*■■*-•*■■** 


*!  Procedure:  EDIP  BAR 8 

*  !  ~ 

*l***************  +  +  ***  +  *********  +  ^  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  ^  +  ^  +  +  +  ^^^^^ 

PROCEDURE  edip_bar 8 
@  13,1  CLEAR  TO  17,79 
@  13,1 
TEXT 

Assign  a  different  parametere  for  Class  VIII  consumption. 

ENDTEXT 

RETURN 

*  "DONE!" 

*  ! 

*!  Procedure:  EDIP  BAR 9 

* !  ~ 

*,*.**  +  **  ******************  i*******************^*^^^^^^^^^^^ 

PROCEDURE  edip_bar9 
8  13,1  CLEAR  TO  17,79 
8  13,1 
TEXT 

Save  changes  and  return  to  Main  Menu. 

ENDTEXT 

RETURN 

*  Delete  Profile 

*!*****  +  **  +  *****  +  **********  +  +  ilrilriritit  +  Jp  +  )lr  +  +  +  il[ilrilr  +  +  +  iit  +  ^  +  +  +  +  ^^  +  +  +  ^^^^ 


*  ■  Procedure:  DELP  BARI 

* !  ~ 

*  I****************************************************  ***************** 
PROCEDURE  delp_barl 

8  10,1  CLEAR  TO  16,79 

8  10,1 

TEXT 

Select  Parameter  Set  for  deletion.  You  will  not  be  able  to  delete  any 
Profiles  that  are  currently  used  in  an  Order. 

ENDTEXT 

RETURN 

*  Delete  Unit 

*!***************+*******++*++***+*++++++++++++++++++++++++++++++++++** 

*  ! 

*!  Procedure:  DELP  BAR2 

* !  ~ 

PROCEDURE  delp_bar2 
8  10,1  CLEAR  TO  16,79 
8  10,1 
TEXT 

Delete  Parameter  Set  that  you  have  selected.  You  will  not  be  able  to  qet 
deleted  Parameter  Sets  back! 

ENDTEXT 

RETURN 

*  Delete  Unit 

♦l**********************************************************,***,*^,,, 

*  ! 

*  -  Procedure:  DELP  BAR3 
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PROCEDURE  delp_bar3 
@  10, 1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Return  to  Main  Menu. 

ENDTEXT 

RETURN 

*  CUSTOM  Profiles 

*  "Create  Custom  Area  Profile" 

+I********************************************************************* 


*  ! 
*  i 


Procedure:  CRCP  BARI 


PROCEDURE  crcp_barl 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Create  a  Custom  Area  Profile  based  on  a  previously  existing  one.  You 
must  use  a  unique  name  for  your  Profile.  Use  View  Area  Profiles  to  see  a 
list  of  existing  names. 

ENDTEXT 

RETURN 

*  "View  Area  Profiles" 

★i********************************************************************* 

*  ! 

*!  Procedure:  CRCP_BAR2 

*  j 

*[*  +  +  +  *****■**••***  +  **  +  *■*•  +  *****  +  +  *■*  +  +  **  +  *  +  *+**  +  +  **  +  ***  +  *  +  ****  +  +  ***  +  ******* 
PROCEDURE  crcp_bar2 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Review  existing  Area  Profile  names  and  configurations. 

ENDTEXT 


RETURN 

*  "Edit  Custom  Area  Profile" 

•*)*■*★**  +  *  +  *■*■****  +  *******•*  +  +  **  +  +  +  ***  +  *  +  *  +  **•*  +  ****  +  *  +  *  +  ***•**■*■*■*■********■*■* 

*  ! 

* !  Procedure:  CRCP_BAR3 

* ! 

★t********************************************************************* 

PROCEDURE  crcp_bar3 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

You  may  edit  Custom  Profile  configurations,  assigning  time  and  distance 
usage  factors  to  various  types  of  equipment. 

ENDTEXT 


RETURN 

*  "Return  to  Main  Menu" 

★i********************************************************************* 

*  ! 

* !  Procedure:  CRCP_BAR4 

*  ! 

★i********************************************************************* 


* 
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* 


PROCEDURE  crcp_bar4 
0  10,  1  CLEAR  TO  16, 79 

e  10,1 

TEXT 

Return  to  the  Main  Menu. 
ENDTEXT 


RETURN 

*  "Delete  Custom  Area  Profile" 

*  ! 

*!  Procedure:  CRCP  BAR 6 

* !  ~ 


★i******************************************** 

PROCEDURE  crop  bar6 
0  10,1  CLEAR  TO  16,79 
0  10,1 
TEXT 


You  may  delete  Custom  Profiles  that  are  not  currently  used  by  any 
Parameter  Set.  Standard  Area  Profiles  will  not  be  shown  and  cannot  be 
deleted. 


ENDTEXT 


RETURN 

*:  EOF:  INSTPROF.PRG 


■+ 


'*■ 
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★  • 

*:  Procedure  file:  D:\SURE\INSTREPT.PRG 

★  « 

* :  Procs  &  Fncts :  0RDR_BAR1 

* :  :  0RDR_BAR2 

* :  :  0RDR_BAR3 

* :  :  0RDR_BAR4 

*:  :  ORDR  BAR5 


*:  Documented  04/16/94  at  11:02  SNAP!  version  5.00 

*  Order-based  Reports 

*  "Select  Order/Calcuate  Consumption" 
*{★★**+**+★*★***★★★*★***+*+★********++****★**++★++*★*+**★★***+**+*+**+* 

*  ! 

*!  Procedure:  ORDR_BARl 

★  ! 

★  \*&  +  +^  +  +  ir+-fr  +  +  +  +  +  +  +  +  +  +  +  +  +jr  +  +  -kjr-k-)c-ir-+e-*r-k-k-k-k-k-*r-k-k-kir-Jr'Jr’-k-ir-lr-)r-jr-ir-+c-k+:-k-k-)r-jc-ir-k-k-kr-1r-k-k-k-tr-k'k 


PROCEDURE  ordr_barl 
@  11,1  CLEAR  TO  17,79 
S  11,1 
TEXT 

Select  an  Order  to  perform  logistics  estimates  on. 
ENDTEXT 


*  "POL  Estimate" 

★  !★*★★**  +  **★★★*★**★★*★★★★**★★★★  +  ★★*★★***-*★**★★•*-*★•*•★*★★★  +  *★****★*  +  **■•*■.*•*★ 

*  ! 

*!  Procedure:  ORDR_BAR2 

*  ! 

★  1+'k  +  -k+-k'tt-ie-k-ir-k-k+-k‘k-k+-k’k-k-ir-tr-tr-ir  +  ir-k'fr-k-ieir-k-k-ie-k'’k'k'kie’k-ie-k-ic-ic-k-k-k-k-trir-Jr'ie-ir-k  +  -ic4f-ir  +  -k'k-k-k-k  +  -k-4r-k-k 

PROCEDURE  ordr_bar2 
0  11,1  CLEAR  TO  17,79 
@  11,1 
TEXT 

Print  bulk  POL  estimate  to  screen,  file,  or  printer.  Use  Condensed  Print 
if  printing  to  Printer. 

ENDTEXT 

*  "Ammo  Estimate" 

*  l  **•*■*  +  ***★****★★★★*★★**★★**★★*★★★*★★★*★★***★★★★★★★★*★*★★*★★★★★★  +  **★*•** 

★  » 

*!  Procedure:  ORDR_BAR3 

*  ! 

*1++******+***************.+++**+*.*******+**********+*+***+********.+**** 

PROCEDURE  ordr_bar3 
0  11,1  CLEAR  TO  17,79 
0  11,1 
TEXT 

Print  ammunition  estimate  to  screen,  file,  or  printer.  Use  Condensed  Print 
if  printing  to  Printer. 

ENDTEXT 


*  "Other  Supply  Estimates" 

+  f  **  +  *★*★****  +  *•***★**★★*★**★*★*★  +  *******  +  **  +  +  *****  +  *★***+**•*.****.*.***★■*•* 

*  ! 

*!  Procedure:  ORDR_BAR4 

*  ! 

★I***************-****************************************************** 


f 


A 


* 


y 
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PROCEDURE  ordr_bar4 
@  11,1  CLEAR  TO  17,79 
@  11,  1 
TEXT 

Print  ration,  water.  Class  IV  and  Class  VIII  estimates  to  screen,  file,  o 
printer.  Use  Condensed  Print  if  printing  to  Printer. 

ENDTEXT 

*  "Return  to  Main  Menu" 

*  j 

*!  Procedure:  ORDRJ3AR5 

* !  ~ 

+  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  + 

PROCEDURE  ordr_bar5 
@  11,1  CLEAR  TO  17,79 
@  11,1 
TEXT 

Return  to  Main  Menu. 

ENDTEXT 


*:  EOF:  INSTREPT . PRG 
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Procedure  file:  D:\SURE\INSTRUCT.PRG 

Procs  &  Fncts :  SURECSR1 
SURECSR2 
SURECSR3 
SURECSR5 
SURETAS1 
SURETAS2 
SURETAS3 
SURETAS5 
SUREPROl 
SUREPR02 
SUREPR04 
SUREPR06 
SUREORD1 
SUREORD2 
SUREORD4 
SUREREP1 
SUREREP2 
SUREUTI1 
SUREUTI2 
SUREUTI3 
SUREUTI4 
SUREUTI5 
SUREUTI6 
SUREQUI1 
SUREQUI2 
SUREHEL1 
SUREHEL2 

Documented  04/16/94  at  11:01  SNAP!  version  5.00 

instruct .prg 
SURE.prg  PROCEDURES 
the  SRC  pad's  popup  and  bars 
POPUP  src_pop  FROM  1,0  MESSAGE  "Unit" 

BAR  1  OF  src_pop  PROMPT  "Create  Unit  from  SRC" 

!  *  +  ****  +  **************  +  ****■+************  +  *******  +  **********  +  +  ****  +  +  *.** 


Procedure:  SURECSR1 


* ! 

*  ! 

*  ! 

*[*  +  *  +  **************  +  **.***************************, >*****  +  **********  +  *** 

PROCEDURE  surecsrl 
@9,1  CLEAR  TO  16,79 
0  9,1 
TEXT 

Create  Units  with  fuel  and  ammo  using  LINs,  personnel  strengths,  and 
unit  designations.  You  will  use  the  units  you  create  to  form  Task 
Organizations,  and  you  will  assign  Task  Organizations  to  Orders.  You 
must  create  Units  to  use  the  Orders-based  Reports  feature. 

ENDTEXT 


RETURN 

*  BAR  2  OF  src_j}op  PROMPT  "Edit  Unit" 

+i *++*++***+*+****+**+***+********+**++*****+*++++***+*.**********+***** 


* ! 
*  ! 
*  i 


Procedure:  SURECSR2 
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@9,1  CLEAR  TO  16, 79 

@  9,1 

TEXT 

You  can  change  LIN  quantities.  Unit  strengths.  Unit  Echelons  etc.  fr 

this  menu. 

ENDTEXT 

RETURN 

*  BAR  3  OF  src_pop  PROMPT  "Create  Custom  Unit  From  LINs" 

+  {*  +  **★****★  +  *★  +  ***★*★★*****★*★****★★*★*  +  **  +  *******★*  +  **  +  ★★*****  +  ★**■*•** 

*  ! 

*!  Procedure:  SURECSR3 

*  ! 

*{*★★★★***★***★★************************  +  *  +  +  *****+  +  **  +  **************.*** 
PROCEDURE  surecsr3 
6  9,1  CLEAR  TO  16, 79 
@  9,1 
TEXT 

If  no  supplied  SRCs  are  close  to  the  one  you  need,  you  may  create  a 
Custom  Unit  by  choosing  LINs  and  entering  the  quantity  for  each  LIN. 
You  may  want  to  look  at  a  list  of  LINs  available  in  the  system  by 
using  the  System  Reports  feature  from  the  Main  Menu. 

ENDTEXT 

RETURN 

*  BAR  5  OF  src_pop  PROMPT  "Delete  Unit" 

★I********************************************************************* 

★  ! 

*!  Procedure:  SURECSR5 

*  I 

+;+******++*********+++***+***.+***++*+***+**+**++**+++**++*+*+**++***** 

PROCEDURE  surecsr5 

@9,1  CLEAR  TO  16,79 

8  9,1 

TEXT 

DELETE  UNITS:  You  cannot  delete  units  that  have  been  assigned  to  any 
Task  Organization.  You  also  cannot  get  them  back  once  deleted,  and 
will  have  to  recreate  them  if  you  need  them  again! 

ENDTEXT 

RETURN 

*  the  Task  pad's  popup  and  bars 

*  POPUP  taskjpop  FROM  1,5  MESSAGE  "Task  Organization" 

*  BAR  1  OF  task_pop  PROMPT  "Create  Task  Organization  from  Units" 

*  f 

*1  Procedure:  SURETAS1 

*  ! 

*; *******+******++****++*******+*+*********■************+****+*+*+**++++ 

PROCEDURE  suretasl 

@9,1  CLEAR  TO  16,79 

0  9,1 

TEXT 

You  may  use  the  Units  you  have  created  and  form  them  into  Task 
Organizations.  Task  Organizations  are  groups  of  units  which  are 
expected  to  operate  under  common  battlefield  conditions  for  a 
particular  order,  sharing  the  same  Parameter  Set.  You  will  assign 
Task  Organizations  to  Orders  on  which  this  program  will  preform  its 


logistics  estimations.  You  do  not  have  to  assign  more  than  one  Unit 
to  a  Task  Organization. 

ENDTEXT 

RETURN 

*  BAR  2  OF  task_pop  PROMPT  "Create  Task  Organization  by  Copying  a  Previou 

+  +  *  +  +  +  ±  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  ±  +  +  +  + 

*  ! 

*!  Procedure:  SURETAS2 

*  ! 

+  l***-*  +  ***  +  *******  +  **  +  ********  +  +  **********.***  +  *****<.****  +  +  +  +  +  +  :ir***  +  *li.^i. 

PROCEDURE  suretas2 
@9,1  CLEAR  TO  16, 79 
@  S,  1 
TEXT 

If  you  are  creating  Task  Organizations  with  similar  combinations 
of  Units,  it  is  often  faster  to  copy  a  previous  one  and  edit  it  than 
to  start  from  scratch. 

ENDTEXT 

RETURN 

*  BAR  3  OF  task_pop  PROMPT  "Edit  Task  Organization" 

★  }***+★★*★****  +  ***★*★****■*★★*  +  ***  +  ***  +  ****★****★  +  ★★  +  +  ★*★***★***•**  +  ★  +  *★*• 

*  ! 

*  !  Procedure:  SURETAS3 

*  ! 

*!*  +  *★*  +  -*■  ★  •*■******★**★★***★*★★*•★*  +  ★*★*■**★★★★★+**★*★  +  **★**  +  *★**■*■•*•★★★*  +  *★■*- 

PROCEDURE  suretas3 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

You  may  assign  Profiles,  assign  and  unassign  Units  etc.  from  this 
Menu  choice. 

ENDTEXT 

RETURN 

*  BAR  5  OF  task_pop  PROMPT  "Delete  Task  Organization" 

*[*  +  *  +  *  +  *  +  +  +  +  +  +  +  *  +  *  +  ±+*  +  +  +  +■  +  +  +  +■+  +  +  +■  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  4'  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

*  ! 

*!  Procedure:  SURETAS5 

*  ! 

*1***  +  ***  +  ***************.  +  +  *****.**.****************.^^**^.*^^^^^,^^^^^^^^^^ 

PROCEDURE  suretas5 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

DELETE  TASK  ORGANIZATION:  You  can  only  delete  Task  Organizations 
that  have  not  been  assigned  to  an  Order.  You  cannot  undelete  Task 
Organizations  once  they  have  been  deleted! 

ENDTEXT 

RETURN 

*  the  Profiles  pad's  popup  and  bars 

*  POPUP  prof_pop  FROM  1,14  MESSAGE  "Mission  Parameter  Sets" 

*  BAR  1  OF  prof_pop  PROMPT  "Create  Parameter  Sets" 

+  ;  ********  +  **+  +  ***  +  +  *****  +  *********  +  +  ****************  +  *<.*  +  +  *Jr*  +  >JI.>.  +  A.>Jk.+ 

*  ! 

*  i 


Procedure:  SUREPROl 


PROCEDURE  sureprol 
@  9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Parameter  Sets  are  used  to  set  the  conditions  for  a  Task  Organizations  in 
in  particular  phase  of  an  Order.  You  set  parameters  for  ammunition,  fuel, 
medical,  food  and  water  consumption  in  a  particular  Set,  then  assign 
that  Set  later  as  required.  You  must  have  Parameter  Sets  assigned  to 
Task  Organizations  within  your  Orders  for  logistics  calculations  to  be 
performed  using  the  Orders-based  Reports  function. 

ENDTEXT 

RETURN 

*  BAR  2  OF  prof_pop  PROMPT  "Edit  Set" 

*  f 

*!  Procedure:  SUREPR02 

*  t 

PROCEDURE  surepro2 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

You  can  change  Parameter  settings,  including  those  used  for  fuel, 
ammunition,  food,  water  and  medical  supply  consumption.  These  changes 
affect  all  Task  Organizations  in  all  Orders  where  the  Set  has  been 
used. 

ENDTEXT 

RETURN 

*  BAR  4  OF  prof_pop  PROMPT  "Delete  Set" 

*  !  ★***  +  ★***■*■  ★*•*•  +  ★**★***★★******★*********************.*..*.****** ********** 

*  l 

*!  Procedure:  SUREPR04 

*  ! 

PROCEDURE  surepro4 
@  9,1  CLEAR  TO  16,79 
@9,1 
TEXT 

DELETE  MISSION  PARAMETER  SET:  You  can  only  delete  Sets  that  have  not 
been  assigned  to  a  Task  Organization  in  an  Order.  You  cannot  undelete 
Sets  once  they  have  been  deleted! 

ENDTEXT 

RETURN 

*  BAR  6  OF  prof_pop  PROMPT  "Custom  Area  Profiles" 

*  ! 

*!  Procedure:  SUREPR06 

*  ! 

*1******  +  ***  +  **  +  ***  +  ***.************.**.***************^*.^^^^^^^^^^^^^^^^^ 

PROCEDURE  surepro6 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

CUSTOM  AREA  PROFILE:  Non-doctrineal  Area  Profiles  are  useful  when 
operating  conditions  affect  the  number  of  hours  equipment  is  run  or 
kilometers  vehicles  are  expected  to  go  per  day.  For  example,  a 
Custom  Profile  might  be  used  to  specify  kilometers  for  wheeled 
vehicles  for  a  road  march.  You  may  add  or  delete  Custom  Profiles, 
but  not  the  doctrinal  ones  provided  with  the  SURE  system. 

ENDTEXT 


231 


RETURN 

*  the  Orders  pad's  popup  and  bars 

*  POPUP  orde_pop  FROM  1,23  MESSAGE  "Orders" 

*  BAR  1  OF  orde_pcp  PROMPT  "Create  Order" 

•k  \ie**kc  +  krk-k-kk-je-k-k-)r-k-k-k-k-k-k-k-k-k1c-ir-k-ie-k-ie-k-k-k-k-ir-te-kk-k-k-k-tr-k-k-k-k-k-k-k-kk-k-k-k'k-k-k-k'k-k-k-k'k-k-k-k-k-k-k-k 

*  ! 

*!  Procedure:  SUREORD1 

*  ! 

PROCEDURE  sureordl 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Orders  combine  Task  Organizations  and  Profiles  and  use  them  with  Orde 
Phase  lengths  and  strengths  to  derive  consumption  calculations.  Each 
Order  has  a  unique  Order  number,  plus  an  Order  name  and  description. 
You  may  assign  up  to  nine  phases  for  each  Order,  each  phase  of  up  to 
99.99  days  in  length,  and  you  may  adjust  the  overall  strength  of  the 
Task  Organizations  used  in  each  phase. 

ENDTEXT 

RETURN 

*  BAR  2  OF  orde_pop.  PROMPT  "Edit  Order" 

*  f 

*!  Procedure:  SUREORD2 

*  ! 

-*■  }  *  +  +  jr  +  +  +  +  +  +  -kkr  +  +  +  +  kr  +  kekr  +  kck-  +  k-  +  k:-k+k-  +  krirk:k-  +  -k-k-ir-k-k-k-k'k-k‘ir-k-k'k-k'ie-ir-k-k-k-k-k-k-k-k-k-k-k-k-k-k-k'k-k 

PROCEDURE  sureord2 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

You  may  adjust  Order  phases,  phase  lengths.  Task  Organization 
strengths  and  assign  Profiles  to  Task  Organizations  for  each  Phase 
of  the  Order. 

ENDTEXT 

RETURN 

*  BAR  4  OF  orde_pop  PROMPT  "Delete  Order" 

+  J***********************************************************-********.*-*. 

*  \ 

*!  Procedure:  SUREORD4 

*  ! 

★t********************************************************************* 

PROCEDURE  sureord4 
@9,1  CLEAR  TO  16,79 
0  9,1 
TEXT 

DELETE  ORDER:  You  cannot  undelete  Orders  once  they  have  been  deleted 
ENDTEXT 
RETURN 

*  the  Reports  pad's  popup  and  bars 

*  POPUP  repo_pop  FROM  1,30  MESSAGE  "Reports" 

*  BAR  1  OF  repo_pop  PROMPT  "Orders-based  Reports" 

*  f  ★★★★  +  ★*★*  +  +*★*★**★★*  +  ****.*.*  +  ★******  +  *  +  ****  +  -*★★★★  +  **★★  +  *★***  +  **  +  *  +  *■*■★* 

*  ! 

*!  Procedure:  SUREREP1 

*  ! 

*:*****+*****+******++**+*+*+*****+*++*+******+**+++**+****.+*+**+++*++* 
PROCEDURE  surerepl 
0  9,1  CLEAR  TO  16,79 
8  9,1 


TEXT 

Orders-based  reports  perform  logistics  estimates  on  Orders  to  which 
you  have  assigned  Task  Organizations  and  Parameter  Sets.  You  can  print, 
print  to  file,  or  view  on  screen  detailed  or  consolidated  reports  for 
ammunition,  fuel,  or  other  classes  of  supply. 

ENDTEXT 

RETURN 

*  BAR  4  OF  repo_pop  PROMPT  "System  Reports" 

*  t  +  ★★*★★****★*★*  +  ★*★*★*★*★•*•*★★★★***★*★★***  +  **  +  *★*★*  +  **■*■★★  *********  ***** 

*  J 

*!  Procedure:  SUREREP2 

*  f 

*  j  ★***★★★****★**★*★★★*★*  +  +  ***★************  +  **  +  ******  +  *****  +  ***.*  +  .******.*. 

PROCEDURE  surerep2 
@9,1  CLEAR  TO  16,79 
8  9,1 
TEXT 

System  Reports  provide  information  on  databases  supplied  with  the  SURE 
system,  plus  those  you  have  created.  They  are  useful  in  planning.  For 
example,  a  list  of  units  you  have  created  could  be  manually  reviewed  to 
to  plan  Task  Organizations. 

ENDTEXT 

RETURN 

*  the  Utilities  pad's  popup  and  bars 

*  POPUP  util_pop  FROM  1,38  MESSAGE  "Utilities" 

*  BAR  1  OF  util_pop  PROMPT  "Reindex  Files" 

*  | 

*!  Procedure:  SUREUTI1 

* ! 

* ; *****+************************++*********+++****++***++*+***+*+****** 

PROCEDURE  sureutil 

@9,1  CLEAR  TO  16,79 

@9,1 

TEXT 

Reindexing  recreates  all  indexes  used  by  SURE.  It  is  not  normally  needed, 
as  SURE's  compiled  dBase  2.0  system  should  automatically  prompt  you  if  it 
needs  to  repair  an  index.  However,  if  your  .MDX  index  files  should  become 
deleted  and  you  do  not  have  a  current  backup,  this  will  recreate  the  .MDX 
index  files.  Do  NOT  use  this  option  without  a  reason! 

ENDTEXT 

RETURN 

*  BAR  2  OF  utiljpop  PROMPT  "Backup  Files" 
★!★★★*★★★+**★+★+*★*****************************+****************+***.*** 

★  | 

*!  Procedure:  SUREUTI2 

★  i 

★t********************************************************************.* 

PROCEDURE  sureuti2 
@9,1  CLEAR  TO  16,79 
8  9,1 
TEXT 

You  may  backup  your  SURE  files  to  a  floppy  disk.  You  must  have  a  blank, 
formatted  floppy  to  start.  If  you  use  a  floppy  containing  a  previous  SURE 
backup  your  old  files  will  be  overwritten. 

ENDTEXT 

RETURN 

*  BAR  3  OF  util_pop  PROMPT  "Restore  Files" 


*  r 

* !  Procedure:  SUREUTI3 

★  ! 

+  i +  +  +  *  +  *  +  *  +  +  *  +  +  ***  +  ***  +  +  **  +  ***■  +  +  **  +  +  +  **  +  +  +  +  +  +  *  +  +  +  *  +  +  **  +  +  +  +  +  +  +■  +  +  +  *■  +  +  +  +  +  * 

PROCEDURE  sureuti3 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

If  you  have  a  floppy  disk  with  files  from  a  backed-up  SURE  system  you  may 
Restore  them  to  this  computer.  If  you  do  so,  your  current  files  will  be 
overwritten,  and  all  data  entered  in  this  system  will  be  lost  and  replaced 
from  the  files  on  the  floppy  disk.  It  is  HIGHLY  recommended  that  you  do 
a  backup  of  this  system  first  before  doing  a  Restore. 

ENDTEXT 


RETURN 

*  BAR  4  OF  util_pop  PROMPT  "Printer  Setup" 

*  I ★★★★★+**★****★**★**★*★★**************+****+********+******** 


★  f 

*  ! 
*  ! 


Procedure :  SUREUTI 4 


+  I  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 

PROCEDURE  sureuti4 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 


Adjust  printer  left  margin  and  page  length. 

ENDTEXT 

RETURN 

*  BAR  5  OF  util_pop  PROMPT  "Turn  Compressed  Print  ON" 

*;  *****•*  +  ****************  +  *****  +  ******  +  ********.**  +  +  *******  +  ****  +  *  +  +  *  +  ** 

* ! 

*!  Procedure:  SUREUTI 5 

+  t 

+  ;**  +  +  *  +  +  **  +  +  ****  +  *  +  ************.*****.******  +  +  +  *  +  +  **>*  +  ,k,1k.  +  +  iJr4.  +  ll.  +  +  ^Ji,)lrifc.  +  il. 

PROCEDURE  sureuti5 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Many  SURE  reports  must  be  printed  in  17-pitch,  compressed  print.  If 
your  printer  does  not  have  a  panel  switch  SURE  will  try  to  set  the 
option  for  you. 

ENDTEXT 

RETURN 

*  BAR  4  OF  util_pop  PROMPT  "Turn  Compressed  Print  OFF" 

*  !  **********  +  **  +  **+•*.*****  +  ***  +  *  +  **  +  ******  +  ***  +  ********.****  +  ********.**** 

*  ! 

*!  Procedure:  SUREUTI 6 

*  ! 

*1+*******************  +  *  +  *****  +  *****.*.****.*.****.*.********.*.*.*.*******,,.***.^ 

PROCEDURE  sureuti6 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

If  you  have  set  compressed  print  on  from  the  SURE  system,  this  option  will 
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* 


try  to  restore"  your  printer  to  normal  print. 


RETURN 

+  the  Quit  pad's  popup  and  bars 

*  POPUP  quit_pop  FROM  1,48  MESSAGE  "QUIT" 

*  EAR  1  OF  quit_pop  PROMPT  "Do  MOT  Quit!" 

*  ! 

*  !  Procedure:  SUP.EQUI1 

*  ] 

PROCEDURE  surequil 
8  9,1  CLEAR  TO  16, 79 
0  9,1 
TEXT 

Do  not  quit  the  SURE  system. 

ENDTEXT 

RETURN 

*  BAR  2  OF  quit_pop  PROMPT  "END  SURE  SYSTEM" 

*  }  •k-k-fr-k-)r-k-k'k-ie+r-it'k'k-k-k'k-it'k-k‘k-k’k-k-k-k-ie-ie-1t-k-1e-k-k-k-k-k-k-k-k-k-it-k'k-ie'k  +  1t-+<-ir-k-k-k'k-)c-k'k-k-k'*r'k'k-k-k'k'k-k-ie')''--k-)r 

*  ! 

*!  Procedure:  SUREQUI2 

*  ! 

*t  ***  +  **■*********  +  ***  +  **  +  *■**  +  **  +  *  +  ***■*■*■*  +  *******  +  *  +  *■****  +  +  **  +  ***  +  ***  +  ** 

PROCEDURE  surequi2 
@  9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Leave  this  program  and  return  to  the  operating  system. 

ENDTEXT 

RETURN 

*  the  HELP  pad's  popup  and  bars 

*  POPUP  help_pop  FROM  1,53  MESSAGE  "HELP" 

*  BAR  1  OF  help_pop  PROMPT  "Instructions" 

*  !  **★******★★*★  +  *★★******  +  ***★***  +  **★**  +  ★**  +  **************★  +  ***  +  •*  +  -*■★  +  *•*■ 

*  ? 

*!  Procedure:  SUREHEL1 

*  ! 

*  i  **★*  +  *****  +  ★  +  ★★  +  ★*★★*★*★*★*★★★*★★★★*★★****★*****★****  +  **★*★★**★****★* 

PROCEDURE  surehell 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

On-screen  display  of  any  part  of  the  SURE  Help  System. 

ENDTEXT 

RETURN 

*  BAR  2  OF  help_pop  PROMPT  "HELP" 

+!***+***★★★*+•*+***★**+**++********+★***+*****+*★★★*******★*+*+*****★★* 

*  ? 

*!  Procedure:  SUREHEL2 

*  ! 

*?*★  +  ★★★*  +  *★  +  ★  +  +  ★****★★**★★*  +  +  *★*★★★★★★★  +  ★★★**★*★*★  +  *★  +  ★★*★*■*■**-*■★★★★*★*• 
PROCEDURE  surehel2 
@9,1  CLEAR  TO  16,79 
0  9,1 
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TEXT  • 

Print  the  entire  SURE  Help  System. 

ENDTEXT 

RETURN 

*:  EOF:  INSTRUCT. PRG 

0 
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-* 


Procedure  file:  D:\SURE\INSTSYSR.PRG 

Procs  &  Fncts :  SYSR_BAR1 
SYS  R_BAR2 
SYSR_BAR3 
SYSR_BAR4 
SYSR_BAR5 
SYSR_BAR6 
SYSR_BAR7 
SYSR_BAR8 
SYSR_BAR9 
SYSR_BA10 
SYSR_BA11 
SYSR  BA12 


Documented  04/16/94  at  11:02  SNAP!  version  5.00 

*  "SRCs" 

★  | 

* !  Procedure:  SYSR_BAR1 

★  t 


★  |  ~k,'k'k+'ie'k'k-k-k-k-k'k-k-k-k-k-k-k-k-k-te-t:-jr-k-tc-k  +  -+e-k-k-ic-ir-kir-ir-kir-k-k-jr-je-kir-k-ie-k-k-k-k-}r-k  +  -k-k'k'k--k-ir-k-ir-irir-k-k-k  ★★★★ 

PROCEDURE  sysr_barl 
@  16,1  CLEAR  TO  20,79 

e  i6,i 

TEXT 

A  list  of  SRCs  from  which  you  may  build  Units. 

ENDTEXT 


RETURN 

★  "SRC  with  LINs" 

★  J  + 

★  ! 

*!  Procedure:  SYSR_BAR2 

*  ! 

*  t  *★  +  ★*  +  ★★★***  +  +  ★★  +  ★*★  +  ★★★*★**★  +  ★**★★*★*★***★★★*★*★★  +  ★*★  +  +  -*•*★★  +  +  ★****** 
PROCEDURE  sysr_bar2 

0  16,1  CLEAR  TO  20,79 

0  16,1 

TEXT 

A  list  of  SRCs  with  their  equipment  LINs.  This  is  a  long  list,  and  is  best 
printed  to  a  file,  then  examined  with  a  text  editor  or  word  processor. 
ENDTEXT 

RETURN 

*  "Units" 

*  ! 

*!  Procedure:  SYSR_BAR3 

★  | 

*  \  **★★****  +  ★  +  ★★★★★*★*★★★*  +  *  +  ★*★★★★**★★**★★*★★*★★★★★★★**★★★  +  •*•  +  ★*•*■*★  **■*•*•* 
PROCEDURE  sysr_bar3 
0  16, 1  CLEAR  TO  20,79 
0  16,1 
TEXT 

A  list  of  Unit  names. 

ENDTEXT 
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RETURN 

*  "Units  with  LINs" 

*i**  +  ************t**********t******i  +  ***iti*  +  jl*44.itiitii  +  tiitjiit4jri)[it 

*  ! 

*  !  Procedure:  SYSR  BAR4 

*  ! 

PROCEDURE  sysr_bar4 
@  16,  1  CLEAR  TO  20,79 
S  16,1 
TEXT 

A  list  of  Units  with  their  equipment  LINs.  This  is  a  long  list,  and  is  best 
printed  to  a  file,  then  examined  with  a  text  editor  or  word  processor. 
ENDTEXT 


RETURN 

*  "Parameter  Sets" 

*;+  +  *  +  ******  +  *  +  **  +  +  +  *  +  *  +  **  +  +  *>  +  ***********  +  +  *  +  y*  +  *  +  +  +  +  **#Jr  +  *^v  +  +  +  +  it.  +  #  +  Jr 

*  ! 

*!  Procedure:  SYSR  BAR5 

* !  ~ 

*|  fr***************************************.***************,,.***.*.****,^*.^ 

PROCEDURE  sysr  bar 5 
@  16,1  CLEAR  TO  20,79 
@  16,1 
TEXT 

A  list  of  Parameter  Sets. 

ENDTEXT 


RETURN 

*  "Task  Organizations" 

*  t**************************************************************,,.****^ 

*  ! 

*!  Procedure:  SYSR  BAR6 

*  ! 

’*rl+'*'++*  +  *  +  *  +  +  +  +  -k-k*  +  +  -k+-k-tr±  +  +  -k  +  -k+  +  -tr  +  -ir  +  ie+  +  +  -ir±  +  +  +  +  +  -k-k  +  +  +  -k-ir  +  -ir-ir  +  +  +  -tr-k  +  +  -/r1r-jr*+  +  + 

PROCEDURE  sysr  bar6 
@  16,1  CLEAR  TO  20,79 
@  16,1 
TEXT 

A  list  of  Task  Organization  names. 

ENDTEXT 


RETURN 

*  "Task  Organizations  with  Units" 

*[+  +  *  +  +  +  +  +  *********  +  *******.  +  +  *  +  >****^<.  +  i.  +  <lrJ[  +  +  +  +  ilrJr1lr  +  +  +  A  +  +  itiA  +  Jri  +  +  Jr  +  +  +  ^  +  +  i 

*  ! 

*!  Procedure:  SYSR  BAR 7 

* !  — 


PROCEDURE  sysr_bar7 
@  16,1  CLEAR  TO  20,79 
0  16,1 
TEXT 


A  list  of  Task  Organizations  and  the  Units  assigned  to  them. 
ENDTEXT 


RETURN 
*  "Orders" 


* 


> 


» 


r 
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+  +  *  +  +  +  +  +  +  *  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  ±  +  +  +  +  +  +  +  *  + 

*  j 

*\  Procedure:  SYSR_BAR8 

*  i 

*  i********************#**************************************.*.********* 

PROCEDURE  sysr_bar8 
@  16,1  CLEAR  TO  20,79 
@  16,1 
TEXT 

A  list  of  Orders. 

ENDTEXT 

RETURN 

*  "Orders  with  Task  Organizations  and  Parameter  Sets" 

tM  +  ★**  +  ★*★**★**★*★★★★****★*★★★****★*★★★**★*  +  ****  +  *★**★★*★★  +  +  +  ***★***■*■*■* 

*  ! 

*!  Procedure:  SYSR_BAR9 

*  ! 

*i  *  +  *•****  +  *****  +  +  +  *  +  *******  +  *****  +  +  **  +  *  +  ****************  +  *****.********* 

PROCEDURE  sysr_bar9 
@  16,1  CLEAR  TO  20,79 
@  16,1 
TEXT 

A  list  of  Task  Organizations  with  assigned  Parameter  Sets. 

ENDTEXT 

RETURN 

*  "Orders  with  Task  Orgs,  Units,  and  Parameter  Sets" 

★j**************************************************************.******* 

*  ! 

*!  Procedure:  SYSR  BA10 

* !  ~ 

PROCEDURE  sysr_bal0 
@  16,1  CLEAR  TO  20,79 
@  16,1 
TEXT 

A  list  of  Task  Organizations  with  their  assigned  Units  and  Parameter  Sets. 
This  is  may  be  a  long  list,  and  is  best  printed  to  a  file,  then  examined 
with  a  text  editor  or  word  processor. 

ENDTEXT 


RETURN 

*  "Change  Printer  Defaults" 

*i  *****■*■*  +  ****  +  *****  +  +  *  +  *  +  *****  +  ************  +  +  *  +  +  +  *  +  +  *  +  *  +  *  +  ******.****** 

*  ! 

*!  Procedure:  SYSR  BA11 

* !  ~ 

PROCEDURE  sysr_ball 
@  16,1  CLEAR  TO  20,79 
@  16,1 
TEXT 

Change  page  length  and  margin. 

ENDTEXT 


RETURN 

*  "Return  to  Main  Menu" 

*j  **********  +  ****  +  *********  +  ***•**  +  **.*  +  *  +  ■*.*  +  **  +  *****  +  ***.*  +  *****  +  **  +  ***** 

*  ! 
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* !  Procedure:  SYSR_BA12 

*  ! 

★  f  ***★★★****  +  *******■*•■*•*■  +  •*■★*★ 

PROCEDURE  sysr_bal2 
@  16,1  CLEAR  TO  20,79 
@  16,1 
TEXT 

Return  to  the  Main  Menu. 
ENDTEXT 
RETURN 

*:  EOF:  INSTSYSR.PRG 


k.kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
★  • 

*:  Procedure  file:  D:\SURE\INSTTASK.PRG 

■k  • 


k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


Pro cs  &  Fncts :  CRET_BAR1 
:  CRET_BAR2 
:  CRET_BAR3 
:  CRET_BAR4 
:  CRET_BAR5 
:  CRET_BAR6 
:  C0PT_BAR1 
:  COPT_BAR2 
:  COPT_BAR4 
:  COPT_BAR3 
:  EDIT_BAR1 
:  EDIT_BAR2 
:  EDITJ3AR3 
:  EDIT_BAR4 
:  EDIT_BAR5 
:  EDIT_BAR6 
:  EDIT_BAR7 
:  EDIT_BAR8 
:  DELT_BAR1 
:  DELT_BAR2 
:  DELT  BAR3 


Documented  04/16/94  at  11:02 


SNAP!  version  5.00 


*  insttask.prg  Used  for  Task  Organization  Menu  Items 

k l kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

*  ! 

*  !  Procedure:  CRET_BAR1 

* ! 

*  i +  ****  +  **  +  **■***+***  +  ***+****  +  *.*-******  +  *  +  ******  +  *****  +  **********  +  +  ***** 

PROCEDURE  cret__barl 
@  10,1  CLEAR  TO  16,79 
8  10,1 
TEXT 

Assign  a  name  to  your  new  Task  Organization.  Duplicate  names  are  not 
allowed.  After  you  have  assigned  a  name,  you  must  assign  Units,  then 
assign  Unit  quantities,  then  'Create  from  Selected  Units'  to  finish 
creating  the  Task  Organization. 


ENDTEXT 

RETURN 

k\kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 
★  | 

* !  Procedure :  CRET_BAR2 

★  ! 

+  (**********+**+*+*++**++*+*.**********.**.**.*******^*******+*********,1,.*^^ 
PROCEDURE  cret_bar2 
8  10, 1  CLEAR  TO  16,79 
8  10,1 
TEXT 

Assign  Units  to  your  new  Task  Organization.  You  may  only  assign  a  Unit 
only  once  to  a  Task  Organizations,  although  you  may  assign  a  unit  to  more 
than  one  Task  Organization.  Units  are  listed  in  Unit  Name  order. 


ENDTEXT 

RETURN 


*  \  *******  *★*****★*********  +  +  +  +  **  +  +  .***  +  *****************  +  ******.*.*..*.*****..* 

*  ! 

*!  Procedure:  CRET__BAR3 

★  i 

*  !  ********  +  +  **********  +  ******  +  *****  +  ***************  +  +  **************  +  *** 
PROCEDURE  cret_bar3 

@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Assign  Units  to  your  new  Task  Organization.  You  may  only  assign  a  Unit 
only  once  to  a  Task  Organizations,  although  you  may  assign  a  unit  to  more 
than  one  Task  Organization.  Units  are  listed  in  SRC  order. 

ENDTEXT 

RETURN 

*  I  *  +  +  **  +  *  +  *  +  *  +  +  -k  +  +  +  +  -k  +  +  +  +  +  +  +  +  -i'++  +  +  -k  +  +  +  -k-k  +  +  +  -k  +  -k-k  +  -k  +  +  ±*  +  +  ±  +  *ir  +  +  -k-tr  +  +  +  -ki'  +  +  -ir 

*  ! 

*!  Procedure:  CRET  BAR 4 

*  ! 

★i***********************************.********************************** 
PROCEDURE  cret_bar4 
@  10,1  CLEAR  TO  16,79 
8  10,1 
TEXT 

You  may  have  up  to  99  of  this  unit  in  your  Task  Organization.  You  must  have 
at  least  1. 


ENDTEXT 

RETURN 

*  ! 

*!  Procedure:  CRET  BAR5 

* !  ~ 

PROCEDURE  cret_bar5 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Create  your  new  Task  Organization  and  prepare  to  create  another  one. 

ENDTEXT 

RETURN 

+  \  *  +  +  +  *  +  +  +  +  *  +  +  *  +  *  +  **■*  +  +  *  +  ■*  +  +  +  +  +  +  +  +  +  +  +  +  ++++  +  +  +  +  +  +  +  +  +++  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 
*  ! 

* !  Procedure :  CRET  BAR 6 

* !  — 

+  1+  +  +  +  -k+r  +  +  -k  +  +  -k-k-ir  +  +-k-ir-k  +  -k-k-k  +  +  +  *-fe+  +  +  +  -ir-ir  +  -lr-ir  +  -k-1fk-k-k-k-ie-k*-k  +  +  +  -*r-k-k'k-ir-k  +  *ir*  +  *  +  +  +  -k-*  + 

PROCEDURE  cret_bar6 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Create  your  new  Task  Organization  and  return  to  the  Main  Menu. 


ENDTEXT 

RETURN 

*  Create  new  Task  Organization  by  copying  previous  one 


★  l 
* ! 

★  t 


Procedure:  COPT  BARI 


$ 


> 


» 


4T 
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PROCEDURE  copt_bar 1 

@  10, 1  clear'  TO  16, 79 

@  10,1 

TEXT 

Assign  Units  to  your  new  Task  Organization  by  copying  from  one  you  have 
previously  created.  You  may  only  assign  a  Unit  only  once  to  a  Task 
Organizations,  although  you  may  assign  a  unit  to  more  than  one  Task 
Organization . 


ENDTEXT 

RETURN 

+  1  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  *  +  * 

*  ! 

*!  Procedure:  COPT  BAR2 

+  f 

PROCEDURE  copt_bar2 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Assign  a  name  to  your  new  Task  Organization.  Duplicate  names  are  not 
allowed. 


ENDTEXT 

RETURN 

+  \  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +■  +  +  +  *  +  *  +  *  +  +  **■**  +  +  *■++*  +  +■*  +  +  +  +  +  *+*  + 
*  ! 

*!  Procedure:  COPT_BAR4 

★  ! 

*i  *+***+++*+++***++*******+*+******+*+****.*****+***.*+++++*+*i+*i.*++1fc.>.*+ 

PROCEDURE  copt  bar4 
@  10, 1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Create  your  new  Task  Organization  and  return  to  the  Main  Menu. 

ENDTEXT 

RETURN 

★  i*******************.********************************.*.***.************** 

*  ! 

*!  Procedure:  COPT_BAR3 

*  ! 

*\*****************************-lrir***-)r-k*-k**-lr*-)r-l,***-t,ir-Hr-lr-lr<******-lr*-k  +  **-k** 

PROCEDURE  copt_bar3 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Create  your  new  Task  Organization  and  prepare  to  create  another  one. 

ENDTEXT 

RETURN 

*i  *  +  ***********  +  ***  +  *  +  *  +  +  +  *  +  ****.  +  **********  +  *  +  +  **  +  **  +  *****.****  +  *  +  +  +  *+.  +  + 
*  ! 

* !  Procedure:  EDIT  BARI 

+  i 
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****+  +  ***★******  +  +  *-*  +  ★**-*-*-*■*★■*■■*•**-*.**.*.  +  •*..*.*.•*.*,1,..*..*.*.*..*..*..*..*. 


PROCEDURE  edit_bari 
@  12,1  CLEAR  TO  16, 79 
@  12,1 
TEXT 

Select  Task  Organization  to  Edit. 


ENDTEXT 

RETURN 

★  ! 

*!  Procedure:  EDIT_BAR2 

★  ! 

*1***********+***+***++*+*****+****.**********.*^.*****.***^.^.*****^^^^^^^.^.^ 
PROCEDURE  edit_bar2 
@  12, 1  CLEAR  TO  16,79 
@  12,1 
TEXT 

Assign  additional  Units  to  the  selected  Task  Organization.  Only 
Units  not  currently  assigned  will  be  shown.  Units  in  Unit  Name  Order. 


ENDTEXT 

RETURN 

+  ! 

*!  Procedure:  EDIT  BAR 3 

*  ! 

♦  t**********************************************.**,,,**************.**.^^ 

PROCEDURE  edit_bar3 
@  12,1  CLEAR  TO  16,79 

e  12,1 

TEXT 

Assign  additional  Units  to  the  selected  Task  Organization.  Only 
Units  not  currently  assigned  will  be  shown.  Units  in  SRC  Order. 

ENDTEXT 

RETURN 

*  1 

*'■  Procedure:  EDIT  BAR4 

*  ! 

*1+*  +  **  +  ***  +  +  *.*******  +  *  +  *  +  *****.  +  ***.********,********^***^^^^^*^^^^^^^^^^ 
PROCEDURE  edit_bar4 
@  12,1  CLEAR  TO  16,79 
0  12,1 
TEXT 

View  the  Units  in  selected  Task  Organization,  Units  in  Unit  Name  Order. 


ENDTEXT 

RETURN 

*  !  ■*•★*★*•*★★★*★★*  + 

*  ! 

*!  Procedure:  EDIT  BARS 

* !  ~~ 


*i*************++***.****.*******+*+*.+ 

PROCEDURE  edit  bar5 
0  12,1  CLEAR  TO  16,79 
@  12,1 
TEXT 


★ 


View  the  Units  in  selected  Task  Organization,  Units  in  SRC  Order. 
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f 


ENDTEXT 

RETURN 

+  ! 

*1  Procedure:  EDIT_BAR6 

*  ! 

Jr  \+^  +  ^*  +  +  ^  +  +  +  +  +  ^  +  +  -k  +  +  ^  +  jr^-kir+ir  +  -)e-irir-)r-k-k-k-k-jr-4r-jr-k-jr'k'Jr-k-Jr-ic'kjr-Jr-Jr-k-4r4r-)r-+r-ir  +  ir-k-jr-)r+--ir  +  -jr-ie-+c-k+- 

PROCEDURE  edit_bar6 
@  12, 1  CLEAR  TO  16,79 
@  12,1 
TEXT 

Remove  units  from  the  current  Task  Organization.  This  will  affect  the 
calculations  of  any  Orders  to  which  the  current  Task  Organization  is 
assigned.  Units  in  Unit  Name  Order. 

ENDTEXT 

RETURN 

♦I********************************************************************* 

*  ! 

*!  Procedure:  EDIT_BAR7 

*  ! 

★  t******************************************************-**************-* 

PROCEDURE  edit_bar7 
@  12,1  CLEAR  TO  16,79 
0  12,1 
TEXT 

Remove  units  from  the  current  Task  Organization.  This  will  affect  the 
calculations  of  any  Orders  to  which  the  current  Task  Organization  is 
assigned.  Units  in  SRC  Order. 

ENDTEXT 

RETURN 

★J********************************************************************* 

*  ! 

*!  Procedure:  EDIT__BAR8 

*  ! 

★ 

PROCEDURE  edit_bar8 
0  12,1  CLEAR  TO  16,79 
0  12,1 
TEXT 

Return  to  Main  Menu. 

ENDTEXT 

RETURN 

★  Delete  Task  Organization 

★  f  ★★★***★★*★★*★*★★★*★  +  ★★**★*★  +  *  +  ****.***********  +  +  ******************  +  **.* 

★  I 

* !  Procedure :  DELT  BARI 

★  ! 

★  j  *★**  +  ★*★★*★★★*★****★*★*★★★*★*★★*★  +  *★*******★**★★★★  +  **★★*★★★*■★  +  ★★★■*•-*■*■★ 

PROCEDURE  delt_barl 
0  10,1  CLEAR  TO  16,79 
0  10,1 
TEXT 

Select  Task  Organization  for  deletion.  You  will  not  be  able  to 
delete  any  Task  Organzations  that  are  currently  assigned  to  an  Order. 


ENDTEXT 


RETURN 

M************************************************,**************,,***** 

*  ! 

*!  Procedure:  DELT  BAR2 

* !  ~ 

* 

PROCEDURE  delt__bar2 
0  10,1  CLEAR  TO  16,79 
0  10,1 
TEXT 

Delete  Task  Organization  that  you  have  selected.  You  will  not  be  able 
to  get  deleted  Task  Organizations  back! 


ENDTEXT 

RETURN 


*  ! 

*!  Procedure:  DELT  BAR 3 

★  {  “ 

+  \+  +  +  +  +  +  +  +  *-k1r-k-lr-ir-kir-k-t'  +  -k-k  +  +  +  +  -k  +  -k*ir-tr-ir-iririe-k-4r  +  +  +  -k  +  +  +  +  +  1r  +  -k-k-k'Jr-tr  +  -*  +  -k-k-ir+  +  -le  +  ±ir-jr  +  -k-j' 

PROCEDURE  delt_bar3 
0  10,1  CLEAR  TO  16,79 
0  10,1 
TEXT 

Return  to  Main  Menu. 


ENDTEXT 

RETURN 

*:  EOF:  INSTTASK. PRG 
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D:\SURE\INSTUNIT.PRG 

CSRC_BAR1 
CSRC_BAR2 
CSRC_BAR4 
CSRC_BAR5 
CSRC_BAR6 
CSRC_BAR3 
EDIU_BAR1 
EDIU_BAR2 
EDIU_BAR3 
EDIU_BAR4 
EDIU_BAR5 
EDIU_BAR6 
EDIU_BAR7 
EDIU_BAR8 
CUST_BAR1 
CUST_BAR2 
CUST_BAR3 
CUST_BAR4 
CUST_BAR5 
CUST_BAR6 
DELU_BAR1 
DELU_BAR2 
DELU_BAR3 
DELU_BAR4 

04/16/94  at  11:02  SNAP!  version  5.00 

'k-k'k-ir-te-ir-k'k'ieir-k-*e  +  -ir’k‘k'if4e-k-k'k'k'ifir-k-k1r-k-jrir-k-k-k-k-k-if-k-k-k'k-k-k-k-ic-k-k-k-k1e-i:+r4e-ie 

*  instunit.prg  Procedure  files  for  items  in  Unit  Menu 

*  CREATESRC.prg  PROCEDURES 

*?**  +  **★**★*★★★*★*★**★★★★★*★★***  +  **★*+*★******★*★*+★  +  ★★**■*•★★★*★*★*  +  **-■*•■*■ 

*  | 

*1  Procedure:  CSRC_BAR1 

*  | 

★t********************************************************************* 

PROCEDURE  csrc_barl 
@9,1  CLEAR  TO  16,79 
8  9,1 
TEXT 

Provided  SRC’s  include  unit  descriptions,  unit  strengths,  and 
LIN  information  for  each  TOE  item  that  consumes  fuel  or  ammunition. 

You  should  select  an  SRC  to  base  each  unit  in  your  organization 
on.  You  may  modify  LINs  and  unit  strengths  from  the  Edit  Unit  program, 
but  unit  names,  once  assigned,  are  permanent  and  cannot  be  duplicated. 
It  is  recommended  that  you  do  NOT  use  the  standard  SRC  description  as 
a  unit  name,  but  modify  it  to  meet  your  needs. 

ENDTEXT 

RETURN 

*! *****+*****+*********+**+*********+*+***•****+***+****++****+*++***+*+ 

*  ! 

*!  Procedure:  CSRC_BAR2 

*  ! 

*1***+****+***************************+*.********.*********************,,,.^ 

PROCEDURE  csrc_bar2 

@9,1  CLEAR  TO  16,79 

8  9,1 

TEXT 


Procedure  file: 
Procs  &  Fncts 


Documented 


247 


If  you  have  a  list  of  your  organization's  units  with  their  SRC  codes, 
it  is  substantially  faster  to  let  this  program  search  for  them  by 
number  rather  than  scrolling  through  the  list  using  the  Browse  feature. 
You  do  not  have  to  enter  a  complete  number,  even  a  partial  one  will  get 
you  to  about  the  right  place  to  do  a  manual  final  scroll. 

ENDTEXT 

RETURN 

+  +  *  +  +  +  *  +  *  +  +  *  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  + 

*  ! 

* !  Procedure:  CSRC  BAR 4 


+  t  ***  +  ***  +  *-  +  ******  +  *****************  +  **  +  *.********  +  *  +  **.  +  lt***  +  +  +  *  +  +  +  i.  +  jk.  +  + 

PROCEDURE  csrc_bar4 
@9,1  CLEAR  TO  16,79 
0  9,1 
TEXT 

If  you  have  already  created  at  least  one  unit  from  an  SRC,  you 
may  copy  its  existing  data,  complete  with  LIN  and  strength  information, 
to  use  with  another  unit.  This  is  a  valuable  time  saver  when  doing 
several  units  that  are  essentially  similar. 

ENDTEXT 

RETURN 

*!******  +  ***********,***t*,,***,*tl(r,,,,ti,,,,t,4tiii44iltii4(fltit4tii^ 

* ! 

*!  Procedure:  CSRC  BAR5 

* !  — 

*  !  *******  +  ************  +  *  +  ****  +  +  ********+*****  +  *****.***********  +  ***  +  +  +  A  + 

PROCEDURE  csrc_bar5 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

You  may  view  the  SRC  and  Unit  Name  of  units  you  have  already  created. 
This  feature  will  help  you  avoid  trying  to  duplicate  unit  names.  If 
you  need  a  complete  listing  of  unit  with  all  data,  you  may  want  to  use 
the  Reports  feature  from  the  Main  Menu. 

ENDTEXT 

RETURN 

*i  +  ************  +  *  +  *****.*****  +  +  ****  +  **  +  *******************  +  ***  +  *  +  +  lk.  +  +  +  +  + 

*  ! 

* !  Procedure:  CSRC  BAR 6 

★  I 

PROCEDURE  csrc_bar6 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

If  you  are  done  creating  units,  press  Enter  now  to  return 
to  the  Main  Menu. 

ENDTEXT 

RETURN 

*j  ***********************+******************* +  ^ 

*  ! 

*!  Procedure:  CSRC  BAR3 

* !  — 

+  +  +  *  +  +  *  +  *  +  +  +  *  +  +  +  +  +  i  +  +  +  +  +  +  +  +  +  +  +  +  +  ^  +  ^  +  +  ^ 

PROCEDURE  csrc_bar3 
@9,1  CLEAR  TO  16,79 
@9,1 
TEXT 

If  you  wish  to  add  this  unit  to  your  unit  list,  and  then  create  another 
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unit  from  an  SRC,  press  Enter  now. 

ENDTEXT 

RETURN 

*  Procedures  for  editunit.prg 

*i  ***  +  **  +  ***  +  **  +  ***  +  +  *********»*•*■  +  *********  +  ****'**■*•***************■***•** 

*  ! 

*  !  Procedure :  EDIU_BAR1 

*  ! 

★  f  k-k-jr-kic-jr-fr-xr-)cir  +  +  -fr+-+-k+--ir-k’k-k-k'jc  +  -k  +  -k-k-k-k-ir-ir-*-k-k--k-k+r'k,'k,'k'k'ir'+r'X'k  +  +  +  'k'tr'*'k 

PROCEDURE  ediu_bar 1 
@  11,1  CLEAR  TO  16,79 
@  11,1 
TEXT 

Select  a  Unit  to  view  or  make  changes  to.  This  option  allow  you 
to  pick  from  your  Unit  list  in  Unit  Name  order. 

ENDTEXT 

RETURN 

★  ! 

*!  Procedure:  EDIUJBAR2 

★  j 

★  f*  +  ****  +  *:Ar  +  **********:*rTt***  +  *  +  *  +  *  +  '*-*-Ar-*r-Ar*-<r>A,*'*'*'Tk-*'*,-A'-*-***‘A-*'*'-*-  +  -fc*-*-:A-'*--*,*-*--*,J*,'*'  +  '*- 

PROCEDURE  ediu_bar2 
@  11,1  CLEAR  TO  16,79 
@  11,1 
TEXT 

Select  a  Unit  to  view  or  make  changes  to.  This  option  allows  you  to 
optionally  enter  an  SRC,  then  pick  from  your  Unit  list  in  SRC  order. 
ENDTEXT 
RETURN 

★  ! 

*  !  Procedure:  EDIU_BAR3 

*  ! 

+  _[+*+*  +  *  +  *  +  *****  +  +  +  **•***  +  ****  +  **  +  ***  +  +  ***  +  *  +  +  ********  +  +  ***  +  +  +  **  +  +  +  +  *  +  ** 
PROCEDURE  ediu_bar3 
@  11,1  CLEAR  TO  16,79 
@  11,1 
TEXT 

Add  or  subtract  to  quantities  of  equipment  assigned  to  selected  unit. 
ENDTEXT 
RETURN 

★  ! 

*  l  Procedure:  EDIU_BAR4 

★  | 

PROCEDURE  ediu_bar4 
@  11, 1  CLEAR  TO  16,79 
@  11,1 
TEXT 

Add  a  new  item  of  equipment  to  selected  unit.  If  it  is  already  assigned, 
a  duplicate  will  not  be  added. 

ENDTEXT 

RETURN 

★  f 

★  { 

*!  Procedure:  EDIU_BAR5 

*  ! 

*  j  *★****  +  ★★**★  +  ******★**★★**  +  **  +  *****★****★★*  +  +  ***★*★*★★★*★  +  ★**  +  *★★★•*■■*•* 
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PROCEDURE  ediu_bar5 
0  11, i  CLEAR  TO  16,79 

@  11,1 

TEXT 

Delete  an  item  of  ecruiDment  from  selected  unit. 

ENDTEXT 


★  {★★*+************+***  +  *****+******  +  ***  +  *  +  ***^  +  ^  +  +  +  +  +  ^+  +  ^^  +  >^^A.+  +^ilr  +  ^^^ 

★  r 

*!  Procedure:  EDIU  BAR  6 

*  ! 

*  I  *★-*■*■*  +  *■■*■  +  +  ■*-  +  **-*■*****■*******•+■*■-*•***  +  **■*-*■**★***  +  *******-*■+■  +  *****■*-*■  +  *-*■*  +  ** 

PROCEDURE  ediu_bar6 
0  11,1  CLEAR  TO  16, 79 
@  11,1 
TEXT 

Change  number  of  personnel  assigned  to  selected  unit. 

ENDTEXT 

RETURN 

*  !  +  *  +  ******-**  +  +  *  +  +  »  +  ******.***  +  *.********  +  ****  +  *****.**i.**i.  +  1j,  +  i.  +  lti.i.<.i.  +  +  +  +  + 

*  ! 

*!  Procedure:  EDIU  BAR7 

+  i 


PROCEDURE  ediu_bar7 
0  11,1  CLEAR  TO  16,79 
0  11,1 
TEXT 

Change  unit  echelon.  This  entry  is  used  for  water  comsumption  calculations. 
ENDTEXT 
RETURN 

*!********'A'****  +  *****  +  *'*  +  *-*'**,****-***  +  *iir**  +  *  +  +  +  +  ***#**  +  +  *  +  **  +  **  +  *-  +  **  +  +  +  * 

*  ! 

*!  Procedure:  EDIU  BAR8 

*  !  — ' 

+  l~*r**  +  +*  +  +  *  +  +  +  -k-k-k-tr  +  -k-k  +  *-k  +  -k-ki,  +  ir  +  +  +4r  +  +  +  +  +  +  +  +  +  ie  +  ie+ir  +  +  +  +  +  +  +  +  irJr  +  i.  +  ir  +  jri'i'  +  jr*,  +  jr 

PROCEDURE  ediu  bar8 
@  11,1  CLEAR  TO  16,79 
@  11,1 
TEXT 

Return  to  Main  Menu. 

ENDTEXT 

RETURN 

*  Custom  Unit 

*  i  *****  +  *'****-**  +  *  +  +  +  +  ***  +  +  *  +  +  *  +  ***  +  +  *  +  +  *.**  +  +  +  **  +  **  +  *  +  +  ******.  +  +  +  +  ^.  +  +  +  +  +  ^ 

*  i 

*  !  Procedure:  CUST  BARI 


PROCEDURE  cust_barl 
0  10,1  CLEAR  TO  16,79 
0  10,1 
TEXT 

You  may  initiate  a  new,  custom  unit  and  assign  it  a  permanent  unit  name.  No 
LIN  items  of  equipment  will  be  automatically  added,  but  you  may  choose  as 
many  as  you  wish  from  the  list  of  LINs  and  assign  quantities. 

ENDTEXT 

RETURN 

+  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  ^  +  +  ^  +  ^ 

*  i 


f 


•f- 
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*!  9  Procedure:  CUST__BAR2 

*  ! 

★  \-k’kkkkkk-kkkkkkkkkkkk-kkkkk-kkkkkkkkk-kkk-kkkk-k-k-kk-k-kirkk-kkk-k-kkk'kk-kkkk-k-kkkk-iir* 

PROCEDURE  cust_bar2 
8  10,1  CLEAR  TO  16,79 
8  10,1 
TEXT 

Examine  equipment  you  have  assigned  to  this  unit  and  optionally  change 
quantities . 

ENDTEXT 

RETURN 

*!*  +  ****  +  ****************■*  +  ******■*  +  *  +  *■■*■*■**■*■*  +  +  ■**■***■*****  +  *■*•*■*•*•*  +  +  ■*•***  +  * 

*  ! 

*!  Procedure:  CUST_BAR3 

* !  ~~ 

■k  |  kk-k-k-kkkkk-k-kkk'trk'kkkkk-k-k-k-kk-k-kkkk-kkkkkk-ickkk-kkkk'kkkkk-k-kkkkkkkkkkkkkkk'kkkk 

PROCEDURE  cust_bar3 
8  10,1  CLEAR  TO  16,79 
8  10,1 
TEXT 

Add  additional  equipment  LINs. 

ENDTEXT 

RETURN 

*  Ikkk-k-kkk-kkk-kkkkkkkkkkkk-kk-kkiekkkiek-kkkkkkkkk'kkk-kk'kk-kkkkk'kkkkkkkirk-kk-kkk-ick 
+  ! 

* !  Procedure:  CUST_EAR4 

* ! 

*  I *********  +  ****  +  ***  +  ***********  +  ******  +  ******  +  ********  +  *******  +  **  +  *  +  ** 

PROCEDURE  cust_bar4 
8  10,1  CLEAR  TO  16,79 
8  10,1 
TEXT 

Delete  equipment  LINs. 

ENDTEXT 

RETURN 

k^kkk-kkkk-kkkkkkk-kk-kkkkkkkkkkkkkir-kk-k'k-kkkkkkkk-kkkk-kkkkk'kkkkkkk-ir-kkkkk-kkkirk 

*  ! 

*!  Procedure:  CUST_BAR5 

*  ! 

*;+*****  +  *******•  +  *  +  *  +  +  **  +  ***  +  *********.****  +  *  +  **  +  **  +  ***  +  *****  +  *  +  +  ***  +  *** 
PROCEDURE  cust_bar5 
8  10,1  CLEAR  TO  16,79 
8  10,1 
TEXT 

This  program  tries  to  guess  the  echelon  of  the  unit  from  the  name  that 
you  entered.  You  may  change  it  here  if  necessary.  Echelon  data  is  used 
in  calculating  water  consumption. 

ENDTEXT 

RETURN 

★  }*  +  ★*★★★+  **★*★★★*★*★**★★★*  ****★  +  ★■*■*  +  ★★  +  *  ★*★★***★**•*•★*★***★★  **★****★★★★ 

★  I 

* !  Procedure:  CUST_BAR6 

*  ! 

*1  ************  +  ******#*  +  *****  +  ****  +  ********  +  +  +  +  *******  +  *  +  **  +  +  *  +  ****  +  *** 
PROCEDURE  cust__bar6 
8  10,1  CLEAR  TO  16,79 
8  10,1 
TEXT 

Creates  unit  from  data  you  have  choosen  and  returns  to  Main  Menu. 

ENDTEXT 


RETURN 

*  Delete  Unit 

f  *+******  +  *****************  +  **  +  *-*--*--*-*--*  +  +  -*-**-*-**-*-**-*-*-*-A--*--*--*-*-*-*-*  +  **--*.^.-i.-*.-x.*^.  * 

*  ! 

*!  Procedure:  DELU  BARI 

* !  ~ 


*  J ***+****+***+**+*****+*****+**** a************************************ 

PROCEDURE  delu_barl 

0  10, 1  CLEAR  TO  16,  79 

@  10,1 

TEXT 

Select  Unit  for  deletion.  You  will  not  be  able  to  delete  any  units  that 
are  currently  assigned  to  a  Task  Organization.  Units  are  in  Unit  Name 
Order . 

ENDTEXT 

RETURN 

*  Delete  Unit 

* !  *  +  *  +  +  **  +  ********  +  ********  +  **.  +  ********.  +  ***  +  ***>i.*  +  +  Jri.  +  +  +  lk.>k.Ait.i>.  +  +  +  +  i>t.  +  1til. 

*  ! 

*!  Procedure:  DELU  BAR2 

* !  — 

PROCEDURE  delu_bar2 
@  10,1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Select  Unit  for  deletion.  You  will  not  be  able  to  delete  any  units  that 
are  currently  assigned  to  a  Task  Organization.  Units  are  in  Unit  Order. 
ENDTEXT 
RETURN 

*  Delete  Unit 

*1*  +  ******************************************^^^^^^^^^^^^^ 

* ! 

*•'  Procedure:  DELU  BAR3 

* !  — 

PROCEDURE  delu_bar3 
@  10, 1  CLEAR  TO  16,79 
@  10,1 
TEXT 

Delete  Unit  that  you  have  selected.  You  will  not  be  able  to  get  deleted 
Unit  back! 

ENDTEXT 

RETURN 

*  Delete  Unit 

*;  *************  +  ***  +  +  +  +  *  +  **  +  **  +  *****-*******  +  +  *.******.  +  ****  +  *  +  +  Vr  +  +  ifc.  +  +  +  i.it5lr 
+  ; 

*!  Procedure:  DELU  BAR4 

* !  — 

*!*************+***********************************+******************* 
PROCEDURE  delu_bar4 
@  10, 1  CLEAR  TO  16,79 
0  10,1 
TEXT 

Return  to  Main  Menu. 

ENDTEXT 

RETURN 


*:  EOF:  INSTUNIT.PRG 


> 


» 
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*:  Procedure  file:  D: \SURE\MEMOPAGR. PRG 

*:  Procs  &  Fncts :  MEMOPAGR ( ) 

+  • 

*:  Documented  04/16/94  at  11:02  SNAP!  version  5.00 

*.*  +  *********  +  ****  +  *********  +  *  +  *  +  ****  +  *********.**********.****  +  ***  +  ***** 

★  +  +  +  +  +  +  *  +  +  +  +  +  + -k-k-'k'lr-k--k-k-fr-k-k-ir'ic-fc-je-k-je-ir  +  -k-k  +  ir-k-ic-k--k-  +  -k--k*r-ic+--k 

*  ! 

*!  Function:  MEMOPAGR () 

*  ! 

*!  Called  by:  HELP. PRG 

*  !  :  HELPNDX . PRG 

*!  :  EDITHELP . PRG 

*  ! 

★I*******************************************************************.** 

FUNCTION  memopagr 


* —  Programmer..:  Martin  Leon  (HMAN  -  ATBBS/ Bor land  BBS)  Modified  by  John 
* —  Friedson 

*—  Date . :  10/28/1991 

* —  Notes . :  Used  to  display  a  memo  on  screen,  allowing  user  to  scroll 

* —  memo  at  will. 

* —  Written  for.:  dBASE  IV,  1.1 

*  Rev,  History:  10/28/1991  —  Original  03/01/94  Modifications 

* —  Calls . :  None 

* —  Called  by. . . :  Any 

*—  Usage . :  ?MemoPagr (<cMemo>, <ULRow>,<ULCol>, <BRRow>, <BRCol>) 

*—  Example . :  ?MemoPagr  (MoreData,  10,  20, 20,  65) 

* —  Returns . :  .F. 


Parameters..:  cMemo  =  name  of  memo  field 

nULRow  =  upper  left  row  position 
nULCol  =  upper  left  column  position 
nBRRow  =  bottom  right  row  position 
nBRCol  =  bottom  right  column  position 


PARAMETER  cmemo,  nulrow,  nulcol,  nbrrow,  nbrcol 

PRIVATE  ccursor,  nesc,  npgdn,  npgup,  nup,  ndn,  nnumlines,nlines,nkey 

PRIVATE  natline, natrow 

cmemo="help->notes" 

* —  set  environment 

SET  MEMOWIDTH  TO  nbrcol  -  nulcol  -  1 
ccursor  =  SET (  "CURSOR"  ) 

SET  CURSOR  OFF 

* —  define  a  few  keys 

nesc  =  27 

npgdn  =  3 

npgup  =  18 

nup  =  5 

ndn  =24 

nenter=  13 

* —  determine  size  of  window 

nnumlines  =  MEMLINES ( Scmemo) 

nlines  =  nbrrow  -  nulrow  -  1 

*  save  the  screen,  so  we  can  restore  it 

SAVE  SCREEN  TO  stmp 

@  nulrow+1,  nulcol+1  CLEAR  TO  nbrrow+1,  nbrcol+1 


@  nulrow+1,  nulcol+1  FILL  TO  nbrrow+1,  nbrcol+1  COLOR  B/N 
@  nulrow+1,  nulcol+1  FILL  TO  nbrrow-1,  nbrcol-1  COLOR  RG+/B 
@  nulrow,  nulcol  TO  nbrrow,  nbrcol  DOUBLE  COLOR  RG+/B 
* —  deal  with  a  blank  memo  . . . 

IF  nnumlines  =  0 

0  nulrow  +  1,  nulcol  +  1  SAY  ; 

"Blank  Memo.  Press  any  key  to  continue..."  COLOR  RG+/B 

nkey  =  INKEY (0) 

* —  reset  the  whole  thing 
RESTORE  SCREEN  FROM  stmp 
RELEASE  SCREEN  stmp 
SET  CURSOR  iccursor 
RETURN  .F. 

ENDIF  (nnumlines  =  0) 
natline  =  1 
natrow  =  1 

DO  WHILE  natline  <=  nnumlines 
* —  Show  one  window  full 

DO  WHILE  natrow  <=  nlines  .AND.  natline  <=  nnumlines 
@  nulrow+natrow,  nulcol  +  1  SAY  ; 

MLINE(  scmemo,  natline  )  COLOR  RG+/B 
natline  =  natline  +  1 
natrow  =  natrow  +  1 

ENDDO  (natrow  <=  nlines  .AND.  natline  <=  nnumlines) 

* —  If  at  last  line  of  memo... 

IF  natline  >  nnumlines 

*  If  memo  is  shorter  than  one  page,  put  box  character  in 

*  bottom  left  corner  of  box,  otherwise,  put  an  up  arrow 
* —  symbol  there. 

@  nbrrow  -  1,  nbrcol  SAY  ; 

IIF(  nnumlines  <=  nlines,  CHR(186),  CHR(24))  COLOR  W+/B 
DO  WHILE  .T. 

nkey  =  INKEY (0) 

* —  If  memo  is  shorter  than  one  page,  only  allow  Esc  key 
IF  nnumlines  <=  nlines 

IF  nkey  =  nesc  .OR.  nkey  =  nenter 
EXIT 

ENDIF  (nkey  =  nesc  .OR.  nkey  =  nenter) 

* —  Otherwise,  allow  Esc  or  PgUp  keys 
ELSE 

IF  nkey  =  nesc  .OR.  nkey  =  npgup  .OR.  nkey  =  nup 
EXIT 

ENDIF  (nkey  =  nesc  .OR.  nkey  =  npgup  .OR.  nkey  =  nup) 
ENDIF  (nnumlines  <=  nlines) 

??  CHR ( 7 ) 

ENDDO  (.T.) 

IF  nkey  =  nesc  .OR.  nkey  =  nenter 
RESTORE  SCREEN  FROM  stmp 
RELEASE  SCREEN  stmp 
SET  CURSOR  Sccursor 
RETURN  .F. 

ENDIF  (nkey  =  nesc  .OR.  nkey  =  nenter) 

8  nulrow+1,  nulcol+1  CLEAR  TO  nbrrow-1,  nbrcol-1 
0  nulrow+1,  nulcol+1  FILL  TO  nbrrow-1,  nbrcol-1  ; 

COLOR  RG+/B 

natline  =  natline  -  natrow  -  nlines  +  1 
natline  =  IIF(  natline  <  1,  1,  natline  ) 
natrow  =  1 
LOOP 

ENDIF  (natline  >  nnumlines) 
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* —  Not  at  end  of  memo  yet... 

*--  If  on  first  page,  show  down  arrow  only,  otherwise  show 
* —  up/down  arrow  on  border  of  box. 

@  nbrrow  -  1,  nbrcol  SAY  ; 

IIF (  natline  -  nlines  =  1,  CHR(25),  CHR(18))  COLOR  W+/B 
DO  WHILE  .T. 

nkey  =  INKEY (0) 

* —  If  this  is  the  first  page  of  the  memo  on  screen. . . 

IF  natline  -  nlines  =  1 

* —  Only  honor  PgDn,  up  cursor,  and  Esc  keys 

IF  nkey  =  npgdn  .OR.  nkey  =  ndn  .OR.  nkey  =  nesc  .OR.  nkey  =  nenter 
EXIT 

ENDIF  (nkey  =  npgdn  .OR.  nkey  =  ndn  .OR.  nkey  =  nesc  .OR.  nkey  = 

nenter) 

* —  otherwise  honor  PgUp  and  up  cursor  as  well  key  as  well 
ELSE 

IF  nkey  =  npgup  .OR.  nkey  =  nup  .OR.  nkey  =  npgdn  .OR.  ; 
nkey  =  ndn  .OR.  nkey  =  nesc  .OR.  nkey  =  nenter 
EXIT 

ENDIF  (nkey  =  npgup  .OR.  nkey  =  nup  .OR.  nkey  =  npgdn  .OR.  /) 

ENDIF  (natline  -  nlines  =  1) 

??  CHR ( 7 ) 

ENDDO  (.T.) 

DO  CASE 

CASE  nkey  =  nesc  .OR.  nkey  =  nenter 
RESTORE  SCREEN  FROM  strap 
RELEASE  SCREEN  strap 
SET  CURSOR  Sccursor 
RETURN  .F. 

CASE  nkey  =  npgup  .OR.  nkey  =  nup 

@  nulrow+1,  nulcol+1  CLEAR  TO  nbrrow-1,  nbrgol-1 
@  nulrow+1,  nulcol+1  FILL  TO  nbrrow-1,  nbrcol-1  ; 

COLOR  RG+/B 

natline  =  (natline  -  (2  *  nlines) ) 
natline  =  IIF(  natline  <  1,  1,  natline  ) 
natrow  =  1 
LOOP 

CASE  nkey  =  npgdn  .OR.  nkey  =  ndn 

(§  nulrow+1,  nulcol  +  1  CLEAR  TO  nbrrow-1,  nbrcol-1 
@  nulrow+1,  nulcol+1  FILL  TO  nbrrow-1,  nbrcol-1  ; 

COLOR  RG+/B 
natrow  =  1 
LOOP 
ENDCASE 

ENDDO  (natline  <=  nnuralines) 

RETURN  .F. 

* —  EoF:  MemoPagr ( ) 

*:  EOF:  MEMOPAGR. PRG 
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■k  • 
■A-  ■ 

★  • 
•k  • 
+  • 
•k  « 


Program:  D:\SURE\MEMVARS.PRG 

Called  by:  SURE.PRG 


*:  Documented  04/16/94  at  11:01  SNAP!  version  5.00 


*  SURE  Memory  variable  initialization. 

*  Primary  use  is  for  public  variables. 

*  Variable  created  by  dBase  screen  generators,  etc.  are  not  listed  here. 
RETURN 

*:  EOF:  MEMVARS . PRG 


256 


Procedure  file:  D:\SURE\ORDEREPl.PRG 


Procs  &  Fncts: 


ORDR_PRO 

OLDORD 

DISPORD3 

STARTORD 

ORDREND 


Set  by:  REPO  PRO 


(procedure  in  SURE.PRG) 

(procedure  in  ORDEREP1 . PRG) 

SNAP!  version  5.00 


Calls:  ORDR  PRO 


Documented  04/16/94  at  11:01 


*  orderrep.prg  Orders-based  logistics  estimations 
SET  PROCEDURE  TO  instrept 

*  PRIVATE  Variables 
STORE  PROGRAM ( )  TO  progvar 


STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 

STORE 


1  TO  statusva 
.n.  TO  statuslv 
.n.  TO  status2v 
.n.  TO  status3v 
.n.  TO  status4v 
0  TO  polvar 
TO  ammovar 
TO  linevar 
TO  internal 
TO  calcvar 
TO  phaselnv 
TO  numberva 
STORE  SPACE (60)  TO  taskorgvar 
STORE  SPACE (8)  TO  filevar 
STORE  SPACE (9)  TO  phasevar 
•n.  TO  parentye 
TO  extvar 
TO  yesnovar 
STORE  SPACE (12)  TO  fileext 
STORE  SPACE (60)  TO  namevar 
CLEAR 

DEFINE  POPUP  ordr_j?op  FROM  1,0 

DEFINE  BAR  1  OF  ordr_pop  PROMPT  "Select  Order/Calcuate  Consumption" 
OF  ordr_pop  PROMPT  "POL  Estimate" 

OF  ordr_pop  PROMPT  "Ammo  Estimate" 

OF  ordr_pop  PROMPT  "Other  Supply  Estimates" 

OF  ordr_pop  PROMPT  "Return  to  Main  Menu" 


STORE 
STORE  "TXT' 
STORE  "NO 


DEFINE  BAR  2 
DEFINE  BAR  3 
DEFINE  BAR  4 
DEFINE  BAR  5 


ON  SELECTION  POPUP  ordr_pop  DO  ordr_pro 


ON  BAR 
ON  BAR 
ON  BAR 
ON  BAR 
ON  BAR 


OF  ordr_pop  DO  ordr_barl 
OF  ordr_pop  DO  ordr_bar2 
OF  ordrjpop  DO  ordr_bar3 
OF  ordr_pop  DO  ordr_bar4 


OF  ordr_pop  DO  ordr  bar5 
DO  WHILE  PROMPT ()<> "Return  to  Main  Menu" 
ACTIVATE  POPUP  ordr_pop 
ENDDO  (PROMPT () <>"Return  to  Main  Menu") 

*  ! 

* !  Procedure:  ORDR  PRO 
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★  ! 

*  f 

★  } 

Called  by: 

ORDERED 1 . PRG 

*  f 

Calls : 

STARTORD 

* ! 

« 

OLDORD 

*  | 

• 

• 

GETORDER 

*! 

• 

« 

DISP0RD3 

+  ! 

PRINTPOL . PRG 

*  { 

PRINTAMM. PRG 

★  i 

PRINTOTH. PRG 

*  ! 

★  » 

ORDREND 

(procedure  in  0RDEREP1 . PRG) 
(procedure  in  0RDEREP1 . PRG) 
(procedure  in  EDITORDE. PRG) 

(procedure  in  0RDEREP1 . PRG) 


(procedure  in  ORDEREP1 . PRG) 


PROCEDURE  ordr_pro 
DO  CASE 


*  Select  order 
CASE  BAR()  =  1 

IF  statusvaol 
CLOSE  DATA 
STORE  1  TO  statusva 
STORE  .n.  TO  statuslv 
STORE  .n.  TO  status2v 
STORE  .n.  TO  status3v 
STORE  .n.  TO  status4v 
STORE  0  TO  polvar 
STORE  0  TO  ammovar 
STORE  0  TO  linevar 
STORE  0  TO  internal 
STORE  0  TO  calcvar 
STORE  SPACE (60)  TO  taskorgvar 
STORE  SPACE (8)  TO  filevar 
STORE  SPACE (9)  TO  phasevar 
STORE  .n.  TO  parentye 
STORE  "TXT"  TO  extvar 
STORE  SPACE (12)  TO  fileext 
ENDIF  (statusvaol) 

DO  startord 

*  Make  sure  there  are  some  records  to  view! 
IF  RECCOUNT ( ) =0 

ACTIVATE  WINDOW  small 
?  CHR ( 7 ) 

@1,2  SAY  "You  must  have  at" 

@  2,2  SAY  "least  one  Order!" 

@3,3  SAY  "Press  any  key..." 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (RECCOUNT () =0) 

DO  oldord 
IF  statusva<>2 
DO  getorder 
ELSE 


DO  dispord3 
ENDIF  ( statusva<>2 ) 
statusva=2 
*  POL  Estimate 
CASE  BAR ( )  =  2 
IF  statusva=l 
?  CHR ( 7 ) 


* 


* 
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ACTIVATE  WINDOW  small 

@1,1  SAY  "Choose  order  first!" 

@  3,1 
WAIT 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusva=l) 

DO  printpol 

*  Ammo  Estimate 
CASE  BAR { )  =  3 

IF  statusva=l 
?  CHR ( 7 ) 

ACTIVATE  WINDOW  small 

@1,1  SAY  "Choose  order  first!" 

@  3,1 
WAIT 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusva=l) 

DO  printamm 

*  Other  Supply  Estimates 
CASE  BAR()  =  4 

'IF  statusva=l 
?  CHR (7) 

ACTIVATE  WINDOW  small 

@1,1  SAY  "Choose  order  first!" 

@3,1 

WAIT 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (statusva=l) 

DO  printoth 

*  DONE  Save  SRC  and  end 
CASE  BAR()  =  5 

DO  ordrend 
ENDCASE 

*  Give  the  user  a  chance  to  use  the  last  estimate  without  recalculating 

*  ! 

* !  Procedure:  OLDORD 

*  ! 

*!  Called  by:  ORDR_PRO  (procedure  in  ORDEREP1 . PRG) 

★  t 

★i********************************************************************* 

PROCEDURE  oldord 
IF  RECCOUNT { "cl_other " ) >0 
IF  SEEK (cl_other->number) 

ACTIVATE  WINDOW  process 
TEXT 

Do  you  want  to  use  the  last  set  of  caclulations  done  for  the  order 
listed  below?  If  you  do,  you  will  save  time,  but  any  changes  you 
may  have  made  to  Units,  Task  Organizations,  Parameter  Sets  or  to  the 
Order  itself  will  NOT  be  taken  into  effect! 

ENDTEXT 

@  ROW ( ) ,  COL()  SAY  "Last  Order  Number:  "+orderlst->number 

7 

@  ROW ( ) ,  COL()  SAY  "  Name:  "+orderlst->name 

7 

@  ROW ( ) ,  COL ( )  SAY 


Description:  "+orderlst->descriptio 


7 

@  ROW ( ) ,  COL ( )  SAY  "Enter  YES  if  you  want  to  use  this  Orders  old  data! 
@  ROW ( ) ,  COLO  GET  yesnovar  PICTURE  "!!!"  VALID  yesnovar="NO"  .OR. 
yesnovar="YES" ; 

ERROR  "Must  be  YES  or  NO" 


READ 

IF  yesnovar="YES" 

statusva=2 

ENDIF  (yesnovar="YES") 

DEACTIVATE  WINDOW  process 
ENDIF  (SEEK(cl_other->number) ) 

ENDIF  (RECCOUNT ("cl_other") >0) 

*i  **********  +  **********  +  ***  +  +  ***  +  *  +  ****  +  +  +  **  +  *******•*********•  +  ******  +  +  * 


★  1 

★  1 

*  ! 

Procedure 

:  GETORDER 

*  ! 

Called  by 

:  ORDT  PRO 

(procedure 

in 

EDITORDE . PRG) 

*  ! 

:  DORD  PRO 

(procedure 

in 

DELORDE. PRG) 

*  ! 

★  f 

ORDR_PRO 

(procedure 

in 

ORDEREP1. PRG) 

★  f 

Calls 

SETBROWS . PRG 

★  ! 

ENDBROWS . PRG 

*  l 

DISPORD2 

(procedure 

in 

CREATEOR. PRG) 

*  ! 

VIEWORDE 

(procedure 

in 

CREATEOR. PRG) 

*  ! 

DISPORD 

(procedure 

in 

CREATEOR. PRG) 

*  ! 

DISPORD3 

(procedure 

in 

ORDEREP1 . PRG) 

★  1 

CALCPOL. PRG 

★  1 

CALCAMMO. PRG 

★  f 

★  i 

CALCOTHE. PRG 

PROCEDURE  getorder 
DO  vieworde 

STORE  NUMBER  TO  numberva 
SET  MESSAGE  TO  "Working..." 
statusva=2 

*  Show  orderlst  info  on  screen 
DO  dispord3 

*  Advise  user  to  wait 
CLEAR 

*  Prepare  estimation  database 
ACTIVATE  WINDOW  process 
ACTIVATE  SCREEN 

6  16,2  SAY  "Please  Wait,  doing  POL  " 
ACTIVATE  WINDOW  process 
DO  calcpol 
ACTIVATE  SCREEN 

@  16,2  SAY  "Please  Wait,  doing  AMMO  " 
ACTIVATE  WINDOW  process 
DO  calcammo 
ACTIVATE  SCREEN 

@  16,2  SAY  "Please  Wait,  doing  OTHER  " 
ACTIVATE  WINDOW  process 
DO  calcothe 

DEACTIVATE  WINDOW  process 

*  Let  user  know  calculations  are  done 
?  CHR ( 7 ) 

SET  MESSAGE  TO 
CLEAR 


* 
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★  i 

★  i 

Procedure : 

VIEWORDE 

★  j 

Called  by: 

ORDS  PRO 

(procedure 

in 

CREATEOR. PRG) 

*  ! 

ORDT  PRO 

(procedure 

in 

EDITORDE. PRG) 

*  ! 

*  ! 

GETORDER 

(procedure 

in 

EDITORDE . PRG) 

*  l 

Calls : 

SETBROWS. PRG 

*  ! 

ENDBROWS . PRG 

*  f 

DISP0RD2 

(procedure 

in 

CREATEOR. PRG) 

★  ! 

*  f 

DISP0RD3 

(procedure 

in 

0RDEREP1 . PRG) 

•k  \-kkkkkkk’kkkkk’kkkkkk-kkk-k-kkkkk-kk-kkirkkkk'kkk-kkk-kk-kkkk-kkkk-kkkkkkkkkk-kk-kkk-kk 

PROCEDURE  vieworde 
SELECT  3 

*  Make  sure  there  are  some  records  to  view 
IF  RECCOUNT ( ) =0 

ACTIVATE  WINDOW  small 
?  CHR { 7 ) 

@  1,2  SAY  "You  must  have  at" 

@  2,2  SAY  "least  one  Order!" 

@3,3  SAY  "Press  any  key...” 

WAIT  "" 

DEACTIVATE  WINDOW  small 

CLEAR 

RETURN 

ENDIF  (RECCOUNT  0=0) 

ACTIVATE  WINDOW  browser 
GO  TOP 

*  SET  MESSAGE  TO  "Choose  an  Order  to  View" 

DO  setbrows 

BROWSE  NOMENU  NOEDIT  NOAPPEND  NODELETE  FIELDS  NUMBER, name,  descriptio  FREEZE 
name  COMPRESS 
DO  endbrows 

DEACTIVATE  WINDOW  browser 

SET  CURSOR  OFF 

CLEAR 

DO  WHILE  LASTKEY ( ) <>23 
DO  dispord3 
IF  RECCOUNT ()=1 

@  23,30  SAY  "Crtl-W  when  Done" 

ELSE 

@  23,15  SAY  "Page-Up  or  Page-Down  to  View,  Ctrl-W  when  Done" 

ENDIF  (RECCOUNT ()=1) 

IF  LASTKEY ()=3 
SKIP 
IF  EOF ( ) 

GO  TOP 

ENDIF  (EOF ( ) ) 

ENDIF  (LASTKEY  0=3) 

IF  LASTKEY ()=18 
SKIP  -1 
IF  BOF ( ) 

GO  BOTTOM 
ENDIF  (BOF ( ) ) 

ENDIF  (LASTKEY ()=18) 

WAIT  "" 

ENDDO  (LASTKEY  ()  023) 

SET  CURSOR  ON 


SET  MESSAGE  TO 

+  |  +  +  +  ****  +  ***+  +  ******  +  -A.**-*.  +  **,i.  +  *  +  +  *******  +  **  +  +  -A.  +  *-  +  ***.*  +  -A.-t  +  **-*  +  +  *  + 


*  ! 

+  ! 

*  ! 

Procedure:  DISPORD3 

* ! 

Called  by:  VIEWORDE 

(procedure  in  CREATEOR. PRG) 

*! 

;  GETORDER 

(procedure  in  EDITORDE. PRG) 

*  j 

*  ! 

:  ORDR_PRO 

(procedure  in  ORDEREP1 . PRG) 

*|**  +  +  *  +  ***  +  *-*  +  ***********  +  ****  +  **********  +  ***.*  +  **  +  ***  +  **  +  »*  +  **.** 

PROCEDURE  dispord3 

@20,2  SAY  "Order  Number:  " 

0  ROW ( ) , COL ( )  SAY  NUMBER 
@  21,2  SAY  "  Order  Name:  " 

@  ROW ( ) , COL ( )  SAY  name 
@  22,2  SAY  "Description:  " 

@  ROW ( ) ,  COL { )  SAY  descriptio 
@  23,2  SAY  "Number  of  Phases:  " 

@  ROW ( ) ,  COL()  SAY  LTRIM (STR (phases ) ) 

*•  |  ***•*•***  +  **  +  **  +  **.*  +  ********************* *■*  +  ***  +  **■*  +  *■  +  *** ******  +  * 


*  T 

★  } 

★  j 

Procedure: 

STARTORD 

★  f 

*  ! 

Called  by: 

ORDR_PRO 

★  ! 

Uses : 

CL  OTHER. DBF 

*  ! 

★  \ 

J 

ORDERLST.  DBF 

*  ! 

MDX  files: 

CL  OTHER. MDX 

*  ! 

★  ! 

: 

ORDERLST. MDX 

(procedure  in  ORDEREP1 . PRG) 


*  !  *■*■**  +  ***•  +  *****■*■****■*.  +  *****.*********  +  ******  +  *******************.* 
PROCEDURE  startord 

*  OPEN  FILES 
CLOSE  DATA 

STORE  PROGRAM ()  TO  progvar 
SELECT  26 
USE  cl_other 
SELECT  3 

USE  orderlst  ORDER  NUMBER 

+  ;****  +  *  +  ********  +  *  +  +  ****  +  *.*****.**i.**  +  4.*  +  +  i.*  +  +  4.  +  +  +  i  +  1l.  +  +  +  +.  +  Jtik.  +  +  +  +  + 

*  ! 

*!  Procedure:  ORDREND 

* ! 

* •  Called  by:  ORDR_PRO  (procedure  in  ORDEREP1 . PRG) 


*!  *  +  *  +  *******  +  *  +  +  +  +  +  •*■**•**  +  +  **  +  *+■*■*■*************.*.*.**.*.**  +  .*..*.  +  +  *.****.*. 

PROCEDURE  ordrend 

CLOSE  DATA 

DEACTIVATE  POPUP 

RETURN 


★  ■ 


EOF:  ORDEREP1 . PRG 


* 


4, 


Procedure  file:  D:\SURE\PRINTAMM.PRG 


Procs  &  Fncts 


AMMOCALC 
PUN I TAMM 
PTASKAMM 
PORDEAMM 
LINAMM 


Set  by:  ORDR_PRO 

Calls:  STARTPLR 
:  DETA_PRO 
:  PRIN  PRO 


(procedure  in  ORDEREP1 . PRG) 

(procedure  in  PRINTPOL. PRG) 
(procedure  in  PRINTPOL . PRG) 
(procedure  in  SYSP.EP.PRG) 


Documented  04/16/94  at  11:02 


SNAP!  version  5.00 


STORE  PROGRAM ()  TO  progvar 
STORE  SPACE (39)  TO  nomenvar 
STORE  SPACE (60)  TO  filevar 
STORE  "  NO"  TO  detailva 
STORE  "  "  TO  printdes 
STORE  "  "  TO  vttlva 

STORE  SPACE (9)  TO  plenvar 
STORE  SPACE (10)  TO  ammlvar 
STORE  SPACE (9)  TO  amm2var 

*  Store  Order  Weight  &  Cube  Totals 
STORE  0  TO  attlwgt 

STORE  0  TO  attlcube 

*  Store  Order  Weight  &  Cube  per  Phase 
STORE  0  TO  pttlwgt 

STORE  0  TO  pttlcube  ' 

*  STORE  Unit  Phase  Weight  &  Cube  Totals  per  Phase 
STORE  0  TO  ottlwgt 

STORE  0  TO  ottlcube 

*  Store  Task  Force  Weight  &  cube  Totals  per  Phase 
STORE  0  TO  tttlwgt 

STORE  0  TO  tttlcube 
STORE  1  TO  qtycount 
STORE  1  TO  unitqty 
CLEAR 

*  Setup  Printers  for  Condensed  Print 

*  Is  printer  on  line? 

IF  PRINTSTATUS ( ) 

DO  CASE 

CASE  vprintva="Dot  Matrix" 

???  CHR ( 27 ) +CHR ( 15 ) 

CASE  vprintva="Laser" 

CASE  vprintva="DeskJet" 

???  CHR (27)+"(sl6.66H" 

ENDCASE 

ELSE 

ACTIVATE  WINDOW  small 

@1,1  SAY  "Printer  not  ready," 

@  2,2  SAY  "compressed  print  NOT  set!" 

@3,3 

WAIT 

DEACTIVATE  WINDOW  small 
ENDIF  ( PRINTSTATUS ( ) ) 
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DO  startplr 

DEFINE  POPUP  deta_pop  FROM  1,1 

DEFINE  BAR  1  OF  deta_pop  PROMPT  "LIN  by  LIN  Detail,  plus  all  Totals" 

DEFINE  BAR  2  OF  deta_pop  PROMPT  "Summary  Reoort  -  Unit,  Task  Org,  and  Order 

Totals" 

DEFINE  BAR  3  OF  deta_pop  PROMPT  "Summary  Report  -  Task  Org  and  Order  Totals 

Only" 


DEFINE  BAR  4  OF  deta_pop  PROMPT  "Summary  Report  -  Order  Totals  Only" 

ON  SELECTION  POPUP  deta  pop  DO  deta  pro 
ON  BAR  1  OF  deta_pop  DO  deta_barl 
ON  BAR  2  OF  deta_pop  DO  deta  bar2 
ON  BAR  3  OF  deta_pop  DO  deta_bar3 
ON  BAR  4  OF  deta_pop  DO  deta_bar4 
DEFINE  POPUP  prin_pop  FROM  1,1 

DEFINE  BAR  1  OF  prin_pop  PROMPT  "Print  Estimate  to  Printer" 

DEFINE  BAR  2  OF  prin_pop  PROMPT  "Print  Estimate  to  Screen" 

DEFINE  BAR  3  OF  prin_pop  PROMPT  "Print  Estimate  to  ASCII  File" 

DEFINE  BAR  4  OF  prin_pop  PROMPT  "Change  Printer  Defaults” 

DEFINE  BAR  5  OF  prin_pop  PROMPT  "Return  to  Previous  Menu” 

ON  SELECTION  POPUP  prin  pop  DO  prin  pro 

ON  BAR  1  OF  prin_pop  DO  prin  barl 

ON  BAR  2  OF  prin_pop  DO  prin_bar2 

ON  BAR  3  OF  prin_pop  DO  prin  bar3 

ON  BAR  4  OF  prin_pop  DO  prin_bar4 

ON  BAR  5  OF  prin_pop  DO  prin~bar5 

DO  WHILE  PROMPT ( ) <>"Return  to  Previous  Menu” 

ACTIVATE  POPUP  prin_pop 
ENDDO  ( PROMPT ()<> "Return  to  Previous  Menu”) 

★I********************************************************************* 
*  ! 


*  ! 
*  ! 
*  ! 
★  ! 
*  ! 
★  { 
*  » 

*  f 

*  ! 
*  ! 

★  I 

★  r 

★  f 

★  ! 
*  ! 

★  t 

*  ! 

★  i 

*  ! 
*  ! 
*  ! 

*  j 

*  ! 
*  ! 
*  ! 
*  ! 


Procedure:  PRIN_PRO 

Called  by:  SYSREP.PRG 

:  PRINTPOL. PRG 
:  PRINTAMM. PRG 
:  PRINTOTH . PRG 


PRNSETUP. PRG 
STARTPLR 

(procedure 

in 

PRINTPOL, PRG) 

REPORTHD 

(procedure 

in 

PRINTPOL. PRG) 

TFHEAD 

(procedure 

in 

PRINTPOL. PRG) 

LINPOL 

(procedure 

in 

PRINTPOL. PRG) 

POLCALC 

(procedure 

in 

PRINTPOL. PRG) 

PUNITPOL 

(procedure 

in 

PRINTPOL. PRG) 

PTASKPOL 

(procedure 

in 

PRINTPOL. PRG) 

PORDEPOL 

(procedure 

in 

PRINTPOL. PRG) 

LINAMM 

(procedure 

in 

PRINTAMM. PRG) 

AMMOCALC 

(procedure 

in 

PRINTAMM. PRG) 

PUNITAMM 

(procedure 

in 

PRINTAMM. PRG) 

PTASKAMM 

(procedure 

in 

PRINTAMM. PRG) 

PORDEAMM 

(procedure 

in 

PRINTAMM. PRG) 

OTHECALC 

(procedure 

in 

PRINTOTH. PRG) 

PUNITOTH 

(procedure 

in 

PRINTOTH. PRG) 

PTASKOTH 

(procedure 

in 

PRINTOTH. PRG) 

PORDEOTH 

(procedure 

in 

PRINTOTH. PRG) 

*  j  ************  +  ******  +  ****** a-***-*-****-*******************.****.*.********.*.* 
PROCEDURE  prin  pro 
DO  CASE 
CASE  BAR ()=1 


♦ 


* 


* 


4 
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printdes="p" 

CASE  BAR ()=2 
printdes="s" 

CLEAR 

CASE  BAR  0=3 
printdes="f " 

ACTIVATE  WINDOW  process 
@  1,1  SAY  "Enter  path  and  file  name." 

0  3,1  GET  filevar 
READ 

*filevar=LTRIM(TRIM ( filevar) ) 

SET  ALTERNATE  TO  &filevar 
DEACTIVATE  WINDOW  process 
CASE  BAR  0=4 
DO  prnsetup 
.  CASE  BAR ()=5 

'  DEACTIVATE  POPUP 

RETURN 
ENDCASE 
CLEAR 

ACTIVATE  POPUP  deta_pop 

*  Set  according  to  destination 
DO  CASE 

CASE  printdes="p" 

ACTIVATE  WINDOW  process 
SET  PRINT  ON 
SET  DEVICE  TO  PRINT 
CASE  printdes="s" 

CASE  printdes="f " 

SET  ALTERNATE  ON 
ENDCASE 

*  Initialize  Variables 
STORE  "  "  TO  phasevar 
taskvar=SPACE ( 60) 

STORE  1  TO  pagenova 

*  Will  need  to  track  each  unit  as  done 
STORE  SPACE (60)  TO  unitvar 

*  +  *  +  ★****★***★★  +  ★*-*■*-*■■*■■*■■*■■*■-*****-*■-*■★★* 

STORE  0  TO  ordervar 
STORE  0  TO  countvar 
STORE  SPACE (60)  TO  taskvar 
*  dbf's  and  variables 
r  DO  startplr 

SELECT  21 

SET  ORDER  TO  unitdodi 
ordervar=NUMBER 

IF  printdes="f "  .OR.  printdes="p" 

ACTIVATE  WINDOW  process 
*  ENDIF  (printdes="f "  .OR.  printdes="p" ) 

countvar=l 
SELECT  18 
SET  FILTER  TO 

SET  FILTER  TO  NUMBER=ordervar 
GO  TOP 

SET  ORDER  TO  phasetas 
GO  TOP 
IF  EOF ( ) 

ACTIVATE  WINDOW  small 

WAIT  "ERROR  -  ORDERTAS . DBF  EOF  ORDERVAR=  ”+ordervar 
DEACTIVATE  WINDOW  small 
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ENDIF  (EOF ( ) ) 

CLEAR 

*  clear  previous  dodic  calc  entries 
SELECT  19 

DO  WHILE  .NOT.  EOF() 

REPLACE  taskorg_qt  WITH  0 

REPLACE  order_qtfwiTH  0 

REPLACE  order_qttl  WITH  0 
REPLACE  taskorg_cb  WITH  0 
REPLACE  order__cb  WITH  0 
REPLACE  order_cbtl  WITH  0 
SKIP 

ENDDO  (.NOT.  EOF()) 

GO  TOP 
DO  WHILE  .T. 

SELECT  21 
SET  FILTER  TO 

SET  FILTER  TO  taskorgnam=ordertas->taskorgnam  .AND.  phase=ordertas->phase 
GO  TOP 
IF  EOF  ( ) 

?  "Taskorgnam  "+ordertas->taskorgnam 
?  "Phase  "+STR(ordertas->phase) 

WAIT 

CLOSE  DATA 
RETURN 

ENDIF  ( EOF ( ) ) 

IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO”) 

DO  reporthd 

IF  PROW ( ) >varpagel-9  .AND.  printdes="p" 

?  "PAGE  "+LTRIM ( STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  (PROW  ( )  >varpagel-9  .AND.  printdes="p’’) 

IF  printdes="s"  &&.AND.  row()>20 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s"  &&.AND.  row()>20) 

IF  printdeso"s" 

7 

7 

ENDIF  (printdes<>Ms") 

?  taskorgnam 

O  tf 

;  n 

7  "  - - — - 

taskvar=ammoest->taskorgnam 
STORE  RECNO ( )  TO  recnovar 
DO  WHILE  unitqty<=ammoest->qty 
uni  t  va  r =amino  e  s  t->uni  tname 
qtycount=ammoest->qty 
IF  detailva="YES" 

7 

7 

?  src+"  "+unitvar 

1  "  "+TRANSFORM (unitqty, "99") +"  OF  "+TRANSFORM (qtycount, "99") 

??  "  LIN  by  LIN  CONSUMPTION" 

IF  printdes="p"  .OR.  printdes="f " 


¥ 


% 


4 
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?  "LIN 

NOMENCLATURE 

QTY  WEAPON 
ROUNDS 

NOMENCLATURE 
CBT  LOAD 

DODIC 

WEIGHT 

DODIC 

CUBE 

ELSE 

?  "LIN 

NOMENCLATURE" 

9  •» - 

QTY  WEAPON 

NOMENCLATURE 

DODIC 

DODIC 

?  SPACE (20)+"  ROUNDS  CBT  LOAD  WEIGHT 

CUBE" 

?  SPACE  (20)+"  -  -  - 

_ _  IT 

ENDIF  (printdes="p"  .OR.  printdes="f " ) 

ENDIF  (detailva="YES" ) 

★  -ir  -ir  ★ 

IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO" ) 

DO  WHILE  .NOT.  EOF ( ) 

DO  linamm 
DO  ammocalc 
SKIP 

IF  unitnameounitvar 
IF  vttlva="uto" 

DO  punitamm 
ENDIF  (vttlva="uto" ) 

EXIT 

ENDIF  (unitnameounitvar) 

ENDDO  ( . NOT .  EOF ( ) ) 

IF  unitqty<qtycount 
unitqty=unitqty+l 
GO  recnovar 
LOOP 
ELSE 

IF  .NOT.  EOF ( ) 

STORE  RECNOO  TO  recnovar 
unitvar=arnmoest->unitname 
unitqty=l 

qtycount=ammoest->qty 

ELSE 

EXIT 

ENDIF  (.NOT.  EOF ( ) ) 

ENDIF  (unitqty<qtycount) 

ENDDO  (unitqty<=ainmoest->qty) 

unitqty=l 

IF  vttlva<>"o" 

DO  ptaskamm 
ENDIF  (vttlva<>"on ) 

SELECT  18 
SKIP 

IF  LTRIM (STR (phase ) )<>phasevar 
DO  pordeamm 

ENDIF  (LTRIM(STR (phase) )<>phasevar) 

STORE  LTRIM(STR(phase) ) TO  phasevar 
SELECT  18 
IF  EOF ( ) 

EXIT 

ENDIF  (EOF ( ) ) 

ENDDO  &&  ordertas  (.T.) 


*  List  Order  totals 
IF  printdes<>"s” 

7 

7 

ENDIF  (printdes<>"s") 

?  "  ORDER  AMMO  CONSUMPTION  TOTAL" 

IF  printdesoV 

?  "  DODIC  DODIC  NOMENCLATURE 

ROUNDS  WEIGHT  CUBE" 

7  «  _  _ ___________ 


7 

ELSE 

?  ,f DODIC  DODIC  NOMENCLATURE” 

7  » _  _ it 

?  SPACE (20)+"  ROUNDS  WEIGHT  CUBE" 

?  SPACE  (20)+"  -  -  - >. 

ENDIF  (printdes<>"s") 

SELECT  19 
GO  TOP 

DO  WHILE  .NOT.  EOF() 

IF  dodic->order_qttl>0 

7 

IF  printdeso"s" 

??  SPACE (38) 

ENDIF  (printdes<>"s") 

??dodic->dodic+"  "+SUBSTR (dodic->dodic  nom, 1,20) 

IF  printdes="s" 

?  SPACE (20) 

ENDIF  (printdes="s") 

??  "  "+TRANSFORM (dodic->order  qttl,"@R  99,999,999,999”) 

7  7  i*  »? 

??  "  "+TRANSFORM(dodic->order_qttl*dodic->weight, "99, 999, 999.99") 
??  TRANS FORM (dodic->order_qttl*dodic->cube, "9, 999, 999. 99") 
attlwgt=attlwgt+dodic->order_qttl*dodic->weight 
attlcube=attlcube+dodic->order  qttl*dodic->cube 
REPLACE  dodic->order_qttl  WITH~0 
ENDIF  (dodic->order  qttl>0) 

IF  printdes=”s"  .AND.  ROW()>20 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  PROW ( ) >varpagel-5  .AND.  printdes="p" 

?  "PAGE  "+LTRIM(STR(pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW ( ) >varpagel-5  .AND.  printdes="p”) 

SKIP 

ENDDO  (.NOT.  EOF()) 

GO  TOP 
SELECT  21 

IF  PROW ( ) >varpagel-5  .AND.  printdes="p" 

?  "PAGE  "+LTRIM ( STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW ( ) >varpagel-5  .AND.  printdes="p") 

9 

?  SPACE (80) +"Totals :  " 

?  SPACE ( 80) +"  Weight:  "+TRANSFORM (attlwgt, ”999, 999, 999. 99") 


?  SPACE ( 80 ) +"  Short  Tons:  "+TRANSFORM ( attlwgt/2000, ”999, 9S9, 999 . 99”) 
?  SPACE (80) +"  Cube:  " +T RAN S FORM (attlcube, "999, 999, 999 . 99” } 

*  Print  last  page  number 

IF  PROW ( ) >1  .AND.  printdes="p" 

DO  WHILE  PROW ( ) <varpagel-l 

7 

ENDDO  ( PROW ( ) <varpagel-l ) 

?  "PAGE  "+LTRIM ( STR (pagenova ) ) 

ENDIF  ( PROW ( ) >1  .AND.  printdes="p" ) 

SET  PRINT  OFF¬ 
SET  DEVICE  TO  SCREEN 
IF  printdes="s” 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s") 

IF  printdes="f" 

7 

?  "END  OF  REPORT" 

SET  ALTERNATE  OFF 
SET  DEVICE  TO  SCREEN 
DEACTIVATE  WINDOW  process 
ENDIF  (printdes="f " ) 

IF  printdes="p" 

DEACTIVATE  WINDOW  process 
ENDIF  (printdes="p" ) 

SELECT  18 
SET  FILTER  TO 
SELECT  21 
SET  FILTER  TO 

★  I 

STARTPLR 

PRINT POL. PRG 
PRINTAMM. PRG 
PRINTOTH . PRG 

PRIN_PRO  (procedure  in  SYSREP.PRG) 

STARTHLP . PRG 

TASKORG. DBF 
CSRCLIST .  DBF 
ORDERLST . DBF 
CPROFILE. DBF 
PROFILES.  DBF 
POLRATE. DBF 
POSTURE. DBF 
INTENSTY. DBF 
POLWGT . DBF 
CSRCLINQ. DBF 
ORDERTAS . DBF 
DODIC.DBF 
POLEST . DBF 
AMMOEST . DBF 
AMMORATE . DBF 
MEDICAL. DBF 
WATER. DBF 
CLASS_I . DBF 
CL  OTHER. DBF 


Procedure: 
Called  by 

Calls : 
Uses 
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+  ! 
*  ! 
*  ! 
*  ! 
* ! 

*! 
*  ! 

★  l 

★  l 

★  ! 
*  ! 

*  I 

*  i 

*  ! 
*  ! 
★  ! 

*  { 
*  ! 
*  ! 


MDX  files: 


TASKORG.MDX 
CSRCLIST.MDX 
ORDERLST .MDX 
CPROFILE.MDX 
PROFILES. MDX 


POLRATE . MDX 

INTENSTY . MDX 
POLWGT.MDX 
CSRCLINQ . MDX 
ORDERTAS . MDX 
DODIC.MDX 
POLEST.MDX 
AMMOEST . MDX 
AMMO RATE. MDX 
MEDICAL. MDX 
WATER. MDX 
CLASS_I . MDX 
CL  OTHER. MDX 


PROCEDURE  startplr  , 

*  OPEN  FILES 
CLOSE  DATA 

STORE  1  TO  statusvar 
DO  starthlp 
SELECT  1 
USE  taskorg 
SELECT  2 
USE  csrclist 
SELECT  3 
USE  orderlst 
SELECT  4 

USE  cprofile  ORDER  profilenam 
SELECT  7 
USE  profiles 
SELECT  8 

USE  ammorate  ORDER  lin 

SELECT  17 

USE  posture 

SELECT  10 

USE  intensty 

SELECT  12 

USE  polwgt  ORDER  pol  type 

SELECT  14 

USE  csrclinq 

SELECT  18 

USE  ordertas 

SELECT  19 

USE  dodic  ORDER  dodic 
SELECT  21 
USE  aramoest 

*  SET  RELATIONS 
SELECT  18 

SET  RELATION  TO  profilenam  INTO  cprofile 

SELECT  3 

USE  orderlst 

SET  ORDER  TO  NUMBER 

SEEK  ammoest->nuinber 

SELECT  14 


* 


V 


f 
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* 


*■ 


* 


SET  ORDER  TO 
SELECT  21 
SET  ORDER  TO 
SET  RELATION 
SET  ORDER  TO 
SET  RELATION 
SELECT  21 
SET  ORDER  TO 


lin 

lin 

TO  lin  INTO  csrclinq 
dodic 

TO  dodic  INTO  dodic 
unitdodi 


*  i 


* !  Procedure:  AMMO CALC 

*  ! 

* !  Called  by:  CALCAMMO . PRG 

* !  :  PRIN_PRO  (procedure  in  SYSREP.PRG) 

*  ! 


PROCEDURE  ammocalc 

REPLACE  dodic->order_qt  WITH  dodic->order_qt+ammoest->calc_qty 
REPLACE  dodic->order_qttl  WITH  dodic->order_qttl+airanoest->calc_qty 
REPLACE  dodic->order_cb  WITH  dodic->order_cb+ammoest->cbt_loadqt 
REPLACE  dodic->order_cbtl  WITH  dodic->order_cbtl+ammoest->cbt_loadqt 
REPLACE  dodic->taskorg_qt  WITH  dodic->taskorg_qt+airunoest->calc_qty 
REPLACE  dodic->taskorg_cb  WITH  dodic->taskorg_cb+arnmoest->cbt_loadqt 
REPLACE  dodic->unit_qt  WITH  dodic->unit_qt+ammoest->calc_qty 
REPLACE  dodic->unit_cb  WITH  dodic->unit_cb+cbt_loadqt 

*  ! 

*!  Procedure:  PUNITAMM 

★  ! 

*!  Called  by:  PRIN_PRO  (procedure  in  SYSREP.PRG) 

★  i 

★ 

PROCEDURE  punitamra 
IF  printdeso"s" 

7 

7 

ENDIF  (printd es<>"s") 

IF  PROW ( ) >varpagel-10  .AND.  printdes="p" 

?  "PAGE  ”+LTRIM(STR(pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  {PROW ( ) >varpagel-10  .AND.  printdes="p" ) 

IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO" ) 

7 

?  src+"  "+unitvar 

?  "  "+TRANSFORM(unitqty, "99")+"  OF  "+TRANSFORM(qtycount, "99") 

??  "  DODIC  SUMMARY  SECTION" 

IF  printdeso"s" 

?  "  DODIC  DODIC  NOMENCLATURE 

ROUNDS  CBT  LOAD  WEIGHT  CUBE" 

7  "  _  _ 


7 

ELSE 

?  "DODIC  DODIC  NOMENCLATURE" 


7  «* _  _ ii 

?  SPACE. (20) +"  ROUNDS  CBT  LOAD  WEIGHT  CUBE" 

?  SPACE  (20)+"  -  -  -  - " 
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ENDIF  (printdes<>"s" ) 
SELECT  IS 
GO  TOP 

DO  WHILE  .NOT.  EOF() 

IF  dodic->unit  qt>0 

? 


IF  printdesO'V 

??  SPACE ( 38 ) 

ENDIF  (printdes<>"s " ) 

??  dodic->dodic+"  "+SUBSTR ( dodic->dodic  nom, 1,20) 

IF  printdes="s" 

?  SPACE (20) 

ENDIF  (printdes="s") 

??  "  "+TRANSFORM (dodic->unit_qt, "@R  99,999,999,999") 

??  "  "+TRANSFORM (dodic->unit_cb, "@R  9,999,999,999") 

??  "  "+TRANSFORM (dodic->unit_qt*dodic->weight, "9,  999,  999. 99”) 

??  "  "+TRANSFORM (dodic->unit_qt*dodic->cube, "999, 999 . 99 " ) 

*  Keep  track  of  unit  ammo  weight  and  cube 
ottlwgt=ottlwgt+dodic->order_qttl*dodic->weight 
ottlcube=ottlcube+dodic-> order  qttl*dodic->cube 
REPLACE  dodic->unit_qt  WITH  0  ~ 

REPLACE  dodic->unit_cb  WITH  0 
ENDIF  (dodic->unit_qt>0) 

IF  printdes="s "  .AND.  ROW()>20 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  PROW ( ) >varpagel-5  .AND.  printdes="p" 

?  "PAGE  "+LTRIM (STR (pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW ( ) >varpagel-5  .AND.  printdes="p" ) 

SKIP 

ENDDO  ( . NOT .  EOF ( ) ) 

*  print  Unit  weight  and  cube  totals 
?  SPACE ( 80 )+"Unit  Totals:  " 

?  SPACE (80)+"  Weight:  "+TRANSFORM (ottlwgt, "999,  999,  999 . 99"  ) 

?  SPACE (80)+"  Short  Tons:  "+TRANSFORM (ottlwgt/2000, "999, 999, 999 . 99" ) 

?  SPACE ( 80) +"  Cube:  "+TRANSFORM (ottlcube, "999, 999, 999 . 99" ) 

ottlwgt=0 

ottlcube=0 

GO  TOP 

SELECT  21 

IF  printdes="s"  .AND.  ROW()>20 

•3 


WAIT 

CLEAR 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  PROW ( ) >varpagel-5  .AND.  printdes="p" 
?  "PAGE  "+LTRIM ( STR (pagenova) ) 
pagenova=pagenova+l 


EJECT 

ENDIF  (PROW ( ) >varpagel-5  .AND.  printdes="p") 


*  ! 


*!  Procedure:  PTASKAMM 

★  ! 

*!  Called  by:  PRIN_PRO  (procedure  in  SYSREP.PRG) 


4 


* 


* 
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PROCEDURE  ptaskamm 

7 

7 

IF  PROW ( ) >varpagel-9  .AND.  printdes="p" 

?  "PAGE  "+LTRIM ( STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW ( ) >varpagel-9  .AND.  printdes="p" ) 

IF  printdes="s" .AND.  ROW()>10  .AND.  detailva="YES " 

WAIT 

*  CLEAR 

ENDIF  (printdes="s" .AND.  ROW()>10  .AND.  detailva="YES”} 

•ie  ★  St  ■it 

IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

*  ENDIF  (printdes="s"  .AND.  detailva="NO") 

*  List  Task  Org  totals 
?  taskvar 
7 

?  "TASK  ORG  AMMO  FOR  PHASE  "+phasevar 
IF  printdes<>"s" 

?  "  '  DODIC  DODIC  NOMENCLATURE 

ROUNDS  CBT  LOAD  WEIGHT  CUBE" 

7  "  -  - 


7 

ELSE 

?  "DODIC  DODIC  NOMENCLATURE" 


9  »* _  _  _ _ _ _ _  _ _ „n 

?  SPACE (20)+"  ROUNDS  CBT  LOAD  WEIGHT  CUBE" 

?  SPACE  (20)+"  -  -  -  - " 


ENDIF  (printdes<>"s") 

SELECT  19 
GO  TOP 

DO  WHILE  .NOT.  EOF() 

IF  dodic->taskorg_qt>0 

7 

IF  printdes<>"s" 

??  S PACE (38) 

ENDIF  (printdeso"s") 

??  dodic->dodic+"  "+SUBSTR (dodic->dodic_nom, 1,20) 

IF  printdes="s" 

’  ?  SPACE (20) 

ENDIF  (printdes="s") 

??  "  "+TRANSFORM (dodic->taskorg_qt, "@R  99,999,999,999”) 

??  "  "+TRANSFORM (dodic->taskorg_cb, "@R  9,999,999,999") 

7?  "  "+TRANSFORM (dodic->taskorg_qt*dodic->weight, "9, 999, 999 . 99" ) 
T  ??  "  "+TRANSFORM (dodic->taskorg_qt*dodic->cube, "999,999.99") 

*? 

*  Keep  track  of  Task  Org  ammo  weight  and  cube 
tttlwgt=tttlwgt+dodic->taskorg_qt*dodic->weight 
tttlcube=tttlcube+dodic->taskorg_qt*dodic->cube 
REPLACE  dodic->taskorg_qt  WITH  0 
REPLACE  dodic->taskorg_cb  WITH  0 
ENDIF  (dodic->taskorg_qt>0) 

IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

CLEAR 
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ENDIF  (printdes="s "  .AND.  ROW()>20) 

IF  PROW ( ) >varpagel-5  .AND.  printdes="c" 

?  "PAGE  "+LTRIM ( STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  (PR0W()>varpagel-5  .AND.  printdes=”p") 

SKIP 


ENDDO  ( .NOT.  EOF ( ) ) 

7 

?  SPACE ( 80) +"Task  Force  Totals  This  Phase:  " 

?  SPACE (80) +"  Weight:  "+TRANSFORM ( tttlwgt, "999, SS9, 999 . 99" ) 

?  SPACE (80) +"  Short  Tons:  "+TRANSFORM { tttlwgt/2000, "999, 999, 999 . 99" ) 
?  SPACE (80) +"  Cube:  "+TRANSFORM ( tttlcube, "999, 999, 999 . 99" ) 

*  reinitialize  task  force  weight  and  cube  variables 

tttlwgt=0 

tttlcube=0 

GO  TOP 

SELECT  21 

7 

IF  printdes="s" 

7 


WAIT 

CLEAR 

ENDIF  (printdes="s") 

*  |  ***  +  +***********^ A**********--*-***-*--*- 


*  t 

★  \ 

Procedure: 

PORDEAMM 

*  t 

*  ! 

Called  by: 

PRIN  PRO 

*  » 

PROCEDURE  pordeamm 


(procedure  in  SYSREP.PRG) 


7 


IF  PROW ( ) >varpagel-9  .AND.  printdes="p" 

?  "PAGE  "+LTRIM (STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW { ) >varpagel-9  .AND.  printdes="p") 

*  List  Order  totals  this  phase 
CLEAR 

?  "  ORDER  AMMO  PHASE  "+phasevar 

IF  printdeso"s" 

?  "  DODIC  DODIC  NOMENCLATURE 

ROUNDS  CBT  LOAD  WEIGHT  CUBE" 

7  ■<  _  _  _ _ _ 


7 

ELSE 

?  "DODIC  DODIC  NOMENCLATURE" 

7  " _  _ <i 

?  SPACE (20)+"  ROUNDS  CBT  LOAD  WEIGHT  CUBE” 

?  SPACE  (20)+"  -  -  -  - .. 

ENDIF  (printdes<>"s") 

SELECT  19 
GO  TOP 

DO  WHILE  .NOT.  EOF() 

IF  dodic->order_qt>0 


IF  printdes<>"s" 


* 


* 


* 
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??  SPACE (38) 

ENDIF  (printdes<>"s") 

??  dodic->dodic+"  "+SUBSTR (dodic->dodic_nom, 1, 20) 

IF  printdes="s" 

?  SPACE (20) 

ENDIF  (printdes="s" ) 

??  "  "+TRANSFORM(dodic->order_qt, "@R  99,999,999,999") 

??  "  "+TRANSFORM (dodic->order_cb, "@R  9,999,999,999") 

??  "  "+TRANSFORM (dodic->order_qt*dodic->weight, "9,  999,  999. 99") 

??  "  "+TRANSFORM (dodic->order_qt*dodic->cube, "999, 999 . 99" ) 

*  Keep  track  of  Order  ammo  weight  &  cube  this  Phase 
!  pttlwgt=pttlwgt+dodic->order_qt*dodic->weight 

pttlcube=pttlcube+dodic->order_qt*dodic->cube 
REPLACE  dodic->order_qt  WITH  0 
REPLACE  dodic->order  cb  WITH  0 
ENDIF  (dodic->order_qt>0) 

*  SKIP 

IF  printdes="s"  .AND.  ROW()>17 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s"  .AND.  ROW()>17) 

IF  PROW ( ) >varpagel-5  .AND.  printdes="p" 

?  "PAGE  "+LTRIM (STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW ( ) >varpagel-5  .AND.  printdes="p" ) 

ENDDO  ( . NOT .  EOF ( ) ) 

7 

?  SPACE ( 80) +"Order  Totals  This  Phase:  " 

?  SPACE (80)+"  Weight:  "+TRANSFORM(pttlwgt,  "999,  999,  999 . 99") 

?  SPACE ( 80 ) +"  Short  Tons:  "+TRANSFORM (pttlwgt/2000, "999, 999, 999 . 99" ) 
?  SPACE ( 80) +"  Cube:  "+TRANSFORM {pttlcube, "999, 999, 999 . 99" ) 

★  reinitialize  task  force  weight  and  cube  variables 
pttlwgt=Q 

pttlcube=0 
GO  TOP 
SELECT  21 

7 

IF  printdes="s" 

7 

WAIT 

CLEAR 

*  ENDIF  (printdes="s") 

★  {★★★★★★★★★Tt**************************.**.***.*.***.**.***.****.*****..*..*.*.***.**.*.* 

★  ! 

* !  Procedure :  LINAMM 

* ! 

t  *!  Called  by:  PRIN  PRO  (procedure  in  SYSREP.PRG) 

* ! 

*  i  ***  +  ****  +  •***  +  ********  +  ******  +  ****  +  **  +  ***  +  +  ************** ************** 
PROCEDURE  linamm 

*  Do  one  LIN  at  a  time 
IF  detailva="YES" 

IF  lin_nomen<>nomenvar 

?  lin+"  "+TRANSFORM (quantity, "9999") +"  "+SUBSTR(lin  nomen, 1,25) 
ELSE 

?  SPACE ( 6) +"  "+SPACE ( 4 ) +"  "+SPACE(25) 

ENDIF  (lin_nomen<>nomenvar ) 

??  "  "+dodic+"  "+SUBSTR(dodic->dodic_nom, 1,20) 

275 


IF  printdes="s" 

?  SPACE (20) 

ENDIF  (printdes="s") 

??  "  "+TRANSFORM (calc_qty, "@R  99,999,999,999") 

??  "  "+TRMSFORM(cbt_loadqt,"@R  9,999,999,999”) 

??  "  H+TRANSFORM(calc  qty*dodic->weight, "9, 999, 999. 99") 

??  "  "+TRANSFORM(calc_qty*dodic->cube, "999,999.99") 

nomenvar=lin_nomen 

*  ?  "  USE:  "+ammlvar+"  CBT  LOAD:  "+amm2var 

ENDIF  (detailva="YES" ) 

IF  PROW ( ) >varpagel-5  .AND.  printdes="p” 

?  "PAGE  "+LTRIM ( STR (pagenova ) )  f 

pagenova=pagenova+l 

EJECT 

ENDIF  (PROW ( ) >varpagel-5  .AND.  printdes="p" ) 

IF  printdes=”s"  .AND.  ROW()>20 

WAIT  ♦ 

CLEAR 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

*  ! 

*  !  Procedure:  REPORTHD 

*  ! 

* •  Called  by:  PRIN  PRO  (procedure  in  SYSREP.PRG) 

* !  — 

★t********************************************************.************* 

PROCEDURE  reporthd 
IF  printdes<>"s" 

7 

7 

ENDIF  (printdeso"s") 

IF  PROW ( ) >varpagel-4  .AND.  printdes="p" 

?  "PAGE  "+LTRIM (STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW ( ) >varpagel-4  .AND.  printdes="p") 

IF  printdes="s" . AND.  ROW()>18 
WAIT 
CLEAR 

ENDIF  (printdes=”s" .AND.  ROW{)>18) 

*  Need  to  choose  phase  length 

plenvar="PHASE"+LTRIM(STR(amraoest->phase) ) +"LEN" 

?  ammoest->number+"  "+orderlst->name 

IF  printdes="s"  » 

7 

ENDIF  (printdes="s") 

??  "  ESTIMATED  AMMUNITION  CONSUMPTION  REPORT  as  of  "+DTOC (DATE ( ) ) 

?  ammoest->taskorgnam 

phasevar=LTRIM ( STR ( ammoest->phase) )  f 

?  "Phase:  "+phasevar+"  Strength  "+LTRIM (STR (ordertas->strength) ) +"%" 

??  "  Phase  Length:  " 

DO  CASE 

CASE  plenvar="PHASElLEN" 

??  LTRIM(STR(orderlst->phasellen) ) 

CASE  plenvar="PHASE2LEN" 

??  LTRIM (STR (order Is t->phase21en) ) 

CASE  plenvar="PHASE3LEN" 

??  LTRIM(STR(orderlst->phase31en) ) 

CASE  plenvar="PHASE4LEN" 

??  LTRIM(STR(orderlst->phase41en) ) 
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CASE  plenvar="PHASE5LEN" 

??.  LTRIM ( STR ( orderlst->phase51en ) ) 

CASE  plenvar="PHASE6LEN" 

??  LTRIM(STR(orderlst->phase61en) ) 

CASE  plenvar=”PHASE7LEN" 

??  LTRIM ( STR ( orderlst->phase71en)  ! 

CASE  plenvar="PHASE8LEN” 

??  LTRIM ( STR (orderlst->phase81en) } 

CASE  plenvar="PHASE9LEN" 

??  LTRIM(STR(orderlst->phase91en) ) 

ENDCASE 

?  "Parameter  Set:  "+ordertas->prof ilenam+"  "+cprofile->profiledes 

?  "Posture:  "+cprofile->posture 
?  "Intensity:  "+cprof ile->intensity+"  Factor: 

"+TRANSFORM ( cprofile->f actor , "999.99") 


★  f 

*  ! 

★  t 

Procedure : 

DETA_PR0 

*  ! 

Called  by: 

PRINTPOL . PRG 

★  1 

PRINTAMM. PRG 

*  ! 

*  i 

PRINTOTH. PRG 

★  J  *  +  **  +  ★**  +  *  +  *  +  *★★***********★*★*  +  *★★★*  +  ★★★*★****★★★★★*★*  +  *★*  +  *★-*■  +  **  +  ■*•  + 

PROCEDURE  deta_pro 
DO  CASE 
CASE  BAR ()=1 

detailva="YES " 

DEACTIVATE  POPUP 
CASE  BAR ()=2 

detailva="NO" 

vttlva="uto" 

DEACTIVATE  POPUP 
CASE  BAR ( ) =3 

detailva="NO" 

vttlva="to" 

DEACTIVATE  POPUP 
CASE  BAR  ()=4 

detailva="NO" 

vttlva="o" 

DEACTIVATE  POPUP 
ENDCASE 
CLEAR 

*  BAR  1  OF  detajpop  PROMPT  "LIN  by  LIN  Detail,  plus  all  Totals" 

★  f 

*!  Procedure:  DETA_BAR1 

*  ! 

PROCEDURE  deta_barl 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Consumption  data  is  printed  for  each  equipment  LIN,  including  DODICs, 
rounds,  basic  load,  weight  of  rounds  consumed,  and  cube  of  rounds 
consumed.  Unit,  Task  Organization,  and  Order  summaries  follow  LIN  by 
LIN  detail.  A  seperate  listing  is  printed  for  each  Unit  if  there  are 
more  than  one  of  a  particular  Unit.  This  can  be  a  very  long  report, 
and  it  may  be  preferred  to  print  it  to  a  file  for  use  with  a  word 


processor . 
ENDTEXT 


RETURN 

*  BAR  2  OF  deta_pop  PROMPT  "Summary  Report  -  Unit,  Task  Org,  and  Order  Totals" 
★I***********************************************************, ***+*, 

*  ! 

*!  Procedure:  DETA_BAR2 

* !  ~ 

*  !  **  +  **  +  *-**  +  *  +  ***  +  +  **  +  ******  +  +  *  +  **.**  +  **.*.******  +  **  +  +  *****  +  ii**  +  lk.Jri.  +  4.Jr^  +  ii. 

PROCEDURE  deta_bar2 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

Consumption  data  is  printed  for  each  DODIC,  including  rounds,  weighc 
of  rounds  consumed,  and  cube  of  rounds  consumed  by  Unit,  Task 
Organization,  and  Order. 

ENDTEXT 

RETURN 

*  BAR  3  OF  deta_pop  PROMPT  "Summary  Report  -  Task  Org  and  Order  Totals" 

*  ! 

* !  Procedure :  DETA  BAR3 

* !  — 

*  I********************************.****.*******.**********.***************,, 

PROCEDURE  deta_bar3 
@9,1  CLEAR  TO  16,79 
@9,1 
TEXT 

Consumption  data  is  printed  for  each  DODIC,  including  rounds,  weight 
of  rounds  consumed,  and  cube  of  rounds  consumed  by  Task  Organization 
and  Order. 

ENDTEXT 

RETURN 

*  BAR  4  OF  deta_pop  PROMPT  "Summary  Report  -  Order  Totals" 

*  !  +  ***  +  ****  +  ********  +  *****.**  +  ****  +  +  *.  +  **  +  +  *.**********i.**  +  ***1l.  +  +  +  *lt*^  +  +  +  + 

*  ! 

*!  Procedure:  DETA  BAR 4 

* !  — 

PROCEDURE  deta_bar4 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Consumption  data  is  printed  for  each  DODIC,  including  rounds,  weight 
of  rounds  consumed,  and  cube  of  rounds  consumed  by  the  Order. 

ENDTEXT 


RETURN 

*  BAR  1  OF  prin_pop  PROMPT  "Print  Estimate  to  Printer" 

★  t 

*!  Procedure:  PRIN  BARI 


★  f  *******  +  ***  +  +  ************-*  +  +  ****  +  ***********.****  +  **  +  ***-*-  +  ***-**'*-*  *  *  *  *  * 

PROCEDURE  prin_barl 
@9,1  CLEAR  TO  16,79 
@  9,1 


P 


* 


* 
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TEXT 

Make  sure  printer  is  on  and  on-line. 

ENDTEXT 

RETURN 

*  BAR  2  OF  prin_pop  PROMPT  "Print  Estimate  to  Screen" 

*  ! 

*!  Procedure:  PRIN_BAR2 

*  ! 

PROCEDURE  prin_bar2 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Prints  Reports  to  the  Screen.  These  estimates  can  take  a  long  time 
to  view  this  way.  It  may  be  preferred  to  print  to  a  file  and  then 
view  the  file  with  a  work  processor. 

ENDTEXT 

RETURN 

*  BAR  3  OF  prin_pop  PROMPT  "Print  Estimate  to  ASCII  File" 

+  J 

*!  Procedure:  PRIN_BAR3 

*  ! 

*  t  +  +  **  +  **  +  +  *********•*■**  +  ***■■*■****  +  **•*■*  +  *****  +  *■*■****•***•*■**-*•*  +  *  +  +  *■■*■*■****  +  * 

PROCEDURE  prin_bar3 
@  9, 1  CLEAR  TO  16,79 

e  9,1 

TEXT 

ASCII  files  can  be  viewed  and  edited  with  most  word  processors,  or 
with  EDIT  if  you  are  using  a  version  of  DOS  5.0  or  higher. 

ENDTEXT 

RETURN 

*  BAR  4  OF  prin_pop  PROMPT  "Change  Printer  Defaults" 

+  'k'k'k-k'ir-te'k'k-k'k’k'k+r-te-k-k-ie-ir-kJr-ic-k-k.k'k-k-A.-k-k-ie'k-k-k-k'k-k'kJe-ie'k-k-k-k-k+'k'k'k.k-tc-k-k-ie-tr-k-lr-ir-ic-ie-jr-k 

*  ! 

*!  Procedure:  PRIN_BAR4 

*  I 

PROCEDURE  prin_bar4 
8  9,1  CLEAR  TO  16,79 
8  9,1 
TEXT 

Change  printer  page  length  and  left  margin. 

ENDTEXT 

RETURN 

*  BAR  5  OF  prin_pop  PROMPT  "Return  to  Previous  Menu" 

★j********************************************************************* 

*  ! 

* !  Procedure :  PRIN_BAR5 

*  ! 

♦t********************************************************************* 

PROCEDURE  prin_bar5 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 
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ENDTEXT 


RETURN 

*:  EOF:  PRINTAMM. PRG 


4 


* 


4 
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♦ 


* 


♦ 


Procedure  file:  D:\SURE\PRINTOTH.PRG 


Procs  &  Fncts : 


OTHECALC 

PUNITOTH 

PTASKOTH 

PORDEOTH 


Set  by:  ORDR  PRO 


Calls : 


DETA_PRO 
START PLR 
PRIN  PRO 


Documented  04/16/94  at  11:02 


(procedure  in  ORDEREP1 . PRG) 

(procedure  in  PRINTPOL. PRG) 
(procedure  in  PRINTPOL . PRG) 
(procedure  in  SYSREP.PRG) 

SNAP!  version  5. 


STORE  PROGRAM ()  TO  progvar 
STORE  0  TO  strenvar 
STORE  "  M  TO  vttlva 
STORE  SPACE (60)  TO  filevar 
STORE  SPACE (9)  TO  srcvar 
STORE  "  NO"  TO  detailva 
STORE  "  "  TO  printdes 
STORE  SPACE (9)  TO  plenvar 


STORE  1 

TO 

qtycount 

STORE  1 

TO 

unitqty 

*  water 

variables 

STORE  0 

TO 

u  h2ovar 

STORE  0 

TO 

t_h2ovar 

STORE  0 

TO 

o  h2ovar 

STORE  0 

TO 

oth2ovar 

*  class 

iv 

barrier  variables 

STORE  0 

TO 

u_ivbvar 

STORE  0 

TO 

t  ivbvar 

STORE  0 

TO 

o_ivbvar 

STORE  0 

TO 

otivbvar 

*  class 

iv 

construction  variables 

STORE  0 

TO 

u  ivcvar 

STORE  0 

TO 

t_ivcvar 

STORE  0 

TO 

o_ivcvar 

STORE  0 

TO 

otivcvar 

*  class 

viii  variables 

STORE  0 

TO 

u_cl8var 

STORE  0 

TO 

t_cl8var 

STORE  0 

TO 

o_cl8var 

STORE  0 

TO 

otcl8var 

CLEAR 

DEFINE  POPUP  detajpop  FROM  1,1 

DEFINE  BAR  1  OF  deta_pop  PROMPT  "Unit,  Task  Org,  and  Order  Totals" 
DEFINE  BAR  2  OF  deta_pop  PROMPT  "Task  Org  and  Order  Totals  Only" 

DEFINE  BAR  3  OF  detajpop  PROMPT  "Order  Totals  Only" 

ON  SELECTION  POPUP  deta_pop  DO  deta_pro 
ON  BAR  1  OF  deta_pop  DO  deta_barl 
ON  BAR  2  OF  deta_pop  DO  deta_bar2 
ON  BAR  3  OF  deta_pop  DO  deta_bar3 
DO  startplr 

DEFINE  POPUP  prin_pop  FROM  1,1 

DEFINE  BAR  1  OF  prin_pop  PROMPT  "Print  Estimate  to  Printer" 

DEFINE  BAR  2  OF  prin_pop  PROMPT  "Print  Estimate  to  Screen" 
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oo 

Jr  ★ 


DEFINE  BAR  3  OF  prin_pop  PROMPT  "Print  Estimate  to  ASCII  File" 

DEFINE  BAR  4  OF  prin_pop  PROMPT  "Change  Printer  Defaults" 

DEFINE  BAR  5  OF  prin_pop  PROMPT  "DONE!" 

ON  SELECTION  POPUP  prin_pop  DO  prin_pro 
ON  BAR  1  OF  prin_pop  DO  prin_barl 

ON  BAR  2  OF  prin_pop  DO  prin_bar2 

ON  BAR  3  OF  prin_pop  DO  prin_bar3 

ON  BAR  4  OF  prin_pop  DO  prin_bar4 

ON  BAR  5  OF  prin_pop  DO  prin_bar5 

DO  WHILE  PROMPT ()<>" DONE!" 

ACTIVATE  POPUP  prin_pop 
ENDDO  ( PROMPT ()<>" DONE!") 

■k\-k**-k-k-k-k-k-k-kk*-k-kk-k-k-k-k-k*-k-k-k-k-k-k-k-k-kkk-k-k-k-k-k-k-kk-k-kk-k'k-k-k-k-k-k'k-k-k-k-k-kkk-kkk-k-k-k-kk-kkk 


Jr 

★ 


Procedure:  PRIN  PRO 


Called  by:  SYSREP.PRG 

:  PRINTPOL. PRG 
:  PRINTAMM. PRG 
:  PRINTOTH . PRG 


★ 
•k 
★ 
•k 
Jr 
* 
•k 
★ 
★ 
* 
★ 
•k 
Jr 
•k 
i k 
Jr 
■k 
•k 
•k 


PRNSETUP. PRG 
START PLR 

(procedure 

in 

PRINTPOL. PRG) 

REPORTHD 

(procedure 

in 

PRINTPOL. PRG) 

TFHEAD 

(procedure 

in 

PRINTPOL. PRG) 

LINPOL 

(procedure 

in 

PRINTPOL. PRG) 

POLCALC 

(procedure 

in 

PRINTPOL. PRG) 

PUNITPOL 

(procedure 

in 

PRINTPOL. PRG) 

PTASKPOL 

(procedure 

in 

PRINTPOL. PRG) 

PORDEPOL 

(procedure 

in 

PRINTPOL. PRG) 

LINAMM 

(procedure 

in 

PRINTAMM. PRG) 

AMMOCALC 

(procedure 

in 

PRINTAMM. PRG) 

PUN I TAMM 

(procedure 

in 

PRINTAMM. PRG) 

PTASKAMM 

(procedure 

in 

PRINTAMM. PRG) 

PORDEAMM 

(procedure 

in 

PRINTAMM. PRG) 

OTHECALC 

(procedure 

in 

PRINTOTH. PRG) 

PUNITOTH 

(procedure 

in 

PRINTOTH. PRG) 

PTASKOTH 

(procedure 

in 

PRINTOTH. PRG) 

PORDEOTH 

(procedure 

in 

PRINTOTH. PRG) 

•k 


PROCEDURE  prin_pro 
DO  CASE 
CASE  BAR ()=1 
printdes="p" 

DO  CASE 

CASE  vprintva="Dot  Matrix" 

???  CHR(27) +CHR(15) 

CASE  vprintva="Laser" 

CASE  vprintva="DeskJet" 

???  CHR(27) +" (sl6. 66H" 

ENDCASE 
CASE  BAR ()=2 
printdes="s" 

CLEAR 

CASE  BAR  0=3 
printdes="f " 

ACTIVATE  WINDOW  process 
@  1,1  SAY  "Enter  path  and  file  name." 
@3,1  GET  filevar 


V 


♦ 


* 


# 
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READ 

* f ilevar=LTRIM (TRIM ( f ilevar ) ) 

SET  ALTERNATE  TO  Sfilevar 
DEACTIVATE  WINDOW  process 
CASE  BAR ()=4 
DO  prnsetup 
CASE  BAR ()=5 

DEACTIVATE  POPUP 
RETURN 
ENDCASE 
CLEAR 

'  ACTIVATE  POPUP  deta_pop 

*  Set  according  to  destination 
DO  CASE 

CASE  printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
CASE  printdes="s" 

CASE  printdes="f" 

SET  ALTERNATE  ON 
ENDCASE 

*  Initialize  Variables 
STORE  "  "  TO  phasevar 
taskvar=SPACE ( 60) 

STORE  1  TO  pagenova 

*  Will  need  to  track  each  unit  as  done 
STORE  SPACE (60)  TO  unitvar 

STORE  0  TO  ordervar 
STORE  0  TO  countvar 
STORE  SPACE (60)  TO  taskvar 

*  dbf’s  and  variables 
DO  startplr 

SELECT  26 
o  rde  r va  r=NUMBER 

IF  printdes="f"  .OR.  printdes="p" 
ACTIVATE  WINDOW  process 
ENDIF  (printdes="f "  .OR.  printdes="p" ) 
countvar=l 
SELECT  18 
SET  FILTER  TO 

SET  FILTER  TO  NUMBER=ordervar 
SET  ORDER  TO  phasetas 
GO  TOP 

*  IF  EOF ( ) 

ACTIVATE  WINDOW  small 
WAIT  "ERROR  EOF  PRINTOTH . PRG" 
DEACTIVATE  WINDOW  small 
ENDIF  ( EOF ( ) ) 

>  CLEAR 

*  clear  previous  class_i  calc  entries 
SELECT  24 

DO  WHILE  .NOT.  EOF() 

REPLACE  unit_qty  WITH  0 
REPLACE  task_org_q  WITH  0 
REPLACE  order_qty  WITH  0 
REPLACE  order_qty  WITH  0 
REPLACE  order_ttl  WITH  0 
SKIP 

ENDDO  ( . NOT .  EOF ( ) ) 

GO  TOP 
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&&  ordertas 


DO  WHILE  .T. 

SELECT  26 
SET  FILTER  TO 

SET  FILTER  TO  taskorgnam=ordertas->taskorgnam  .AND.  phase=ordertas->phase 
GO  TOP 

IF  printdes="s "  .AND.  detailva="NO" 

CLEAR 

END IF  (printdes="s"  .AND.  detailva="NO" ) 

DO  reporthd 

IF  PROW ( ) >varpagel-9  .AND.  printdes="p" 

?  "PAGE  "+LTRIM (STR (pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW ( ) >varpagel-9  .AND.  printdes="p" ) 

IF  printdes="s"  &&.AND.  row()>20 

? 

WAIT 

CLEAR 

ENDIF  (printdes="s"  &&.AND.  row()>20) 

taskvar=cl_other->taskorgnam 

unitvar=cl_other->unitnarae 

strenvar=cl_other->strength 

srcvar=cl_other->src 

IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO”) 

STORE  RECNO ( )  TO  recnovar 
unitqty=l 

unitvar=cl_other->unitname 
strenvar=cl_other->strength 
srcvar=cl_other->src 
qtycount=cl_other->qty 
DO  WHILE  .NOT.  EOF ( ) 

DO  othecalc 
SELECT  26 
IF  vttlva="uto" 

DO  punitoth 
ENDIF  ( vttlva="uto" ) 

SELECT  26 

IF  unitqty<qtycount 
unitqty=unitqty+l 
LOOP 

ENDIF  (unitqty<qtycount) 

SKIP 
IF  EOF ( ) 

EXIT 

ELSE 

unitqty=l 

qtycount=cl_other->qty 
unitvar=cl_other->unitname 
strenvar=cl_other->strength 
srcvar=cl_other->src 
STORE  RECNO ( )  TO  recnovar 
ENDIF  ( EOF ( ) ) 

ENDDO  (.NOT.  EOF()) 

IF  vttlva<>"o" 

DO  ptaskoth 
ENDIF  (vttlva<>"o" ) 

SELECT  18 
SKIP 
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IF  LTRIM  ( STR  (phase ))  Ophasevar 
DO  pordeoth 

ENDIF  (LTRIM(STR(phase)  )  Ophasevar) 

STORE  LTRIM (STR (phase) ) TO  phasevar 
SELECT  18 
IF  EOF ( ) 

EXIT 

ENDIF  ( EOF ( ) ) 

ENDDO  &&  ordertas  (.T.  &£  ordertas)  (.T. 

&&  ordertas) 

*  List  Order  totals 
IF  printdeso”s" 

7 

7 

ENDIF  (printdes<>"s" ) 

?  "  ORDER  CONSUMPTION  TOTALS" 

*■  7 

7 

SELECT  24 
GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

??  TRANSFORM ( class_i->order_ttl, "@R  999,999,999")+"  " 

REPLACE  class_i->order_ttl  WITH  0 
SKIP 

ENDDO  ( . NOT .  EOF ( )  ) 

GO  TOP 

IF  printdes="s" 

7 

ENDIF  (printdes="s") 

*  Water 

??  TRANSFORM (oth2ovar,  "@R  999,  999,999").+"  " 
oth2ovar=0 

*  CLASS  IV 

??  TRANSFORM (otivbvar,  "@R  999,999,999")+"  ” 

??  TRANSFORM (otivcvar,  "@R  999,999,999")+”  " 

otivbvar=0 

otivcvar=0 

*  Class  8 

??  TRANSFORM (otcl8var,  "@R  999,999,999") 
otcl8var=0 

*  Print  last  page  number 

IF  PROW ( ) >1  .AND.  printdes="p" 

DO  WHILE  PROW ( ) <varpagel-2 
v  ? 

ENDDO  (PROW ( ) <varpagel-2) 

?  "PAGE  "+LTRIM(STR(pagenova) ) +"  END  OF  REPORT" 

ENDIF  (PROW ( ) >1  .AND.  printdes="p" ) 

SET  PRINT  OFF 
*  SET  DEVICE  TO  SCREEN 
IF  printdes="s" 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s" ) 

IF  printdes="f" 

7 

?  "END  OF  REPORT" 

SET  ALTERNATE  OFF 
SET  DEVICE  TO  SCREEN 
DEACTIVATE  WINDOW  process 
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ENDIF  <printdes=,ff ") 

IF  printdes^’p" 

DEACTIVATE  WINDOW  process 
ENDIF  (printdes=T,p" ) 

SELECT  18 
SET  FILTER  TO 

+  +  +  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  *  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  + 

*  ! 

*1  Procedure:  START PLR 

*  i 


★  f 

*  ! 
-*■  j 
*  ! 
+  ! 
★  } 
*  ! 

★  t 

★  I 

★  f 

★  ! 
*  ! 

*  j 

*  ! 
*  ! 

★  j 

★  ! 

★  I 

*  ! 

★  f 

*  ! 
*  ! 

★  f 

★  f 

★  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 

*  i 

*  ! 

*  I 

*  i 

*  ! 


Called  by:  PRINTPOL.PRG 
:  PRINTAMM.PRG 
:  PRINTOTH . PRG 
:  PRIN_PRO 

Calls:  STARTHLP . PRG 

Uses:  TASKORG. DBF 
:  CSRCLIST . DBF 
:  ORDERLST . DBF 
:  CPROFILE . DBF 
:  PROFILES. DBF 
:  POLRATE . DBF 
:  POSTURE. DBF 
:  INTENSTY. DBF 
:  POLWGT . DBF 
:  CSRCLINQ . DBF 
:  ORDERTAS . DBF 
:  DODIC . DBF 
:  POLEST . DBF 
:  AMMOEST . DBF 
:  AMMO RATE. DBF 
:  MEDICAL. DBF 
:  WATER. DBF 
:  CLASS_I . DBF 
:  CL_OTHER . DBF 

MDX  files:  TASKORG. MDX 
:  CSRCLIST. MDX 
:  ORDERLST. MDX 
:  CPROFILE. MDX 
:  PROFILES. MDX 
:  POLRATE. MDX 
:  INTENSTY. MDX 
:  POLWGT. MDX 
:  CSRCLINQ. MDX 
:  ORDERTAS. MDX 
:  DODIC. MDX 
:  POLEST. MDX 
:  AMMOEST. MDX 
:  AMMO RATE. MDX 
:  MEDICAL. MDX 
:  WATER. MDX 
:  CLAS  S_I . MDX 
:  CL  OTHER. MDX 


(procedure  in  SYSREP.PRG) 


if  !  *★★■*■*★★  +  ★★*★★*  +  **★*★***  +  ***  +  + 

PROCEDURE  startplr 
*  OPEN  FILES 
CLOSE  DATA 


★ 


4 


* 


* 
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STORE  1  TO  statusvar 
DO  starthlp 
SELECT  1 
USE  taskorg 
SELECT  2 
USE  csrclist 
SELECT  3 
USE  orderlst 
SELECT  4 

USE  cprofile  ORDER  profilenam 
SELECT  7 
USE  profiles 
SELECT  17 
USE  posture 
SELECT  10 
USE  intensty 
*•  SELECT  14 

USE  csrclinq 
SELECT  18 
USE  ordertas 
SELECT  22 
USE  medical 
SELECT  23 
USE  water 
SELECT  24 

USE  class_i  ORDER  ration 
SELECT  26 
USE  cl_other 

*  SET  RELATIONS 
SELECT  18 

SET  RELATION  TO  profilenam  INTO  cprofile 

SELECT  3 

USE  orderlst 

SET  ORDER  TO  NUMBER 

SEEK  cl_other->number 

★J********************************************************************* 

★  ! 

* l  Procedure :  OTHECALC 

★  \ 

*!  Called  by:  PRIN_PRO  (procedure  in  SYSREP.PRG) 

★  ! 

* ;  *****+********++******+********+*******+**********+*+********+*****•** 
PROCEDURE  othecalc 

*  *  Track  Class  I 

SELECT  24  &&  Class_I 

*  1st  Meal 

SEEK  cprofile->cl_i_l 

REPLACE  unit_qty  WITH  unit_qty+cl_other->cl_i_qty 

*  REPLACE  task_org_q  WITH  task_org_q+cl_other->cl_i_qty 
REPLACE  order_qty  WITH  order_qty+cl_other->cl_i_qty 
REPLACE  order_ttl  WITH  order_ttl+cl_other->cl_i_qty 

*  2nd  Meal 

SEEK  cprofile->cl_i_2 

REPLACE  unit_qty  WITH  unit_qty+cl_other->cl_i_qty 
REPLACE  task_org_q  WITH  task_org_q+cl_other->cl_i_qty 
REPLACE  order_qty  WITH  order_qty+cl_other->cl_i_qty 
REPLACE  order_ttl  WITH  order_ttl+cl_other->cl_i_qty 

*  3rd  Meal 

SEEK  cprofile->cl_i_3 

REPLACE  unit_qty  WITH  unit_qty+cl_other->cl_i_qty 
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REPLACE  task_org_q  WITH  task_org  q+cl  other->cl  i  qty 
REPLACE  order_qty  WITH  orber_qty+cl  other->cl  i  qty 
REPLACE  order_ttl  WITH  order  ttl+cl  other->cl  i  qty 

*  Track  H2o  ~ 

u_h2ovar=u_h2ovar+cl_other->h2o_qty 
t_h2ovar=t_h2ovar+cl_other->h2o_qty 
o_h2ovar=o_h2ovar+cl_other->h2o_qty 
oth2ovar=oth2ovar+cl_other->h2o~qty 

*  Track  class  iv  barrier  variables 
u_ivbvar=u_ivbvar+cl_other->cl_ivbqty 
t_ivbvar=t_ivbvar+cl_other->cl_ivbqty 
o__ivbvar=o_ivbvar+cl_other->cl_ivbqty 
otivbvar=otivbvar+cl_other->cl_ivbqty 

*  Track  class  iv  construction  variables 
u_ivcvar=u_ivcvar+cl_other->cl  ivcqty 
t_ivcvar=t_ivcvar+cl_other->cl~ivcqty 
o_ivcvar=o_ivcvar+cl_other->cl_ivcqty 
otivcvar=otivcvar+cl_other->cl~ivcqty 

*  Track  class  viii  variables 
u_cl8var=u_cl8var+cl_other->cl_viii_qt 
t_cl8var=t_cl8var+cl_other->cl_viii_qt 
o_cl8var=o_cl8var+cl_other->cl_viii_ qt 
otcl8var=otcl8var+cl_other->cl~viii_qt 
* SELECT  21 

RETURN 

*  ! 

*!  Procedure:  PUNITOTH 

★  ! 

*!  Called  by:  PRIN  PRO  (procedure  in  SYSREP.PRG) 

★  ! 

*|  i******************************************************************** 

PROCEDURE  punitoth 
IF  printdes<>"s" 

7 

7 

ENDIF  (printdes<>”s") 

IF  PROW ( ) >varpagel-9  .AND.  printdes="p" 

DO  WHILE  PROW ( ) <varpagel-2 

7 

ENDDO  ( PROW ( ) <varpagel-2 ) 

?  "PAGE  "+LTRIM(STR(pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  (PROW ( ) >varpagel-9  .AND.  printdes="p") 

IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO") 

?  srcvart"  "+unitvar 

?  TRANSFORM (unitqty, "99") +"  OF  "+TRANSFORM (qtycount, "99") 

?  "PHASE  " tphasevar 

??  "  UNIT  STRENGTH:  "+TRANSFORM (m->strenvar, "999, 999" ) 

7 

SELECT  24 
GO  TOP 

*?  "  A-Ration  B-Ration  T-Ration  MRE  LRP  R/CW 

WATER  BARRIER  CONSTRUCTION  MEDICAL" 

7 

DO  WHILE  .NOT.  EOF() 

??  TRANSFORM (class_i->unit_qty, "@R  999,999,999")+"  " 


* 


*' 


* 


class_i->unit_qty  WITH  0 


REPLACE 
SKIP 

ENDDC  (.NOT.  EOF ( ) ) 

GO  TOP 

IF  printdes="s" 

7 

END IF  (printdes="s") 

*  Water 

??  TRANSFORM (u_h2 ova r 
u_h2ovar=0 

*  CLASS  IV 

??  TRANSFORM (u_ivbvar 
??  TRANSFORM (u_ivcvar 
u_ivbvar=0 
u_ivcvar=0 

*  Class  8 

??  TRANSFORM (u_cl8var 

u_cl8var=0 

SELECT  21 


"@R  999,999,999")+” 

"@R  999, 999, 999") +" 
" @R  999,999,999")+" 

"@R  999,999,999") 


IF  printdes="s"  .AND.  ROW()>20 
•> 


If 


tt 


WAIT 

CLEAR 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  PROW ( ) >varpagel-9  .AND.  printdes="p" 

7 

?  "PAGE  "+LTRIM ( STR (pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  (PROW ( ) >varpagel-9  .AND.  printdes="p" ) 

★t******************************************* ***************+*****•***** 
*  ! 

* !  Procedure:  PTASKOTH 

*  ! 

*!  Called  by:  PRIN_PRO  (procedure  in  SYSREP.PRG) 

* ! 

*1*+***+****+*++***+++***+***+**.++**+*****+*++*+++***+*******+**++*++** 


PROCEDURE  ptaskoth 

IF  PROW ( ) >varpagel-15  .AND.  printdes="p" 

DO  WHILE  PROW ( ) <varpagel-2 
o 

ENDDO  ( PROW ( ) <varpagel-2 ) 

?  "PAGE  "+LTRIM (STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  (PROW( ) >varpagel-15  .AND.  printdes="p" ) 

IF  printdes="s" .AND.  ROW()>10  .AND.  detailva="YES" 

WAIT 

CLEAR 

ENDIF  (printdes="s" . AND .  ROW()>10  .AND.  detailva="YES") 
★  ★  ★  ★ 


IF  printdes=”s"  .AND.  detailva="NO" 
CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO" ) 
*  List  Task  Org  totals 

7 

7 

?  taskvar 

?  "TASK  ORG  PHASE  "+phasevar 

7 
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*?  "  A-Ration  B-Ration  T-Ration  MRE 

WATER  BARRIER  CONSTRUCTION  MEDICAL” 


LRP 


R/CW 


SELECT  24 
GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

??  TRANSFORM ( class_i->task_org_q,  "@R  999,999,  999"}+"  " 

REPLACE  class_i->task_org_q  WITH  0 
SKIP 

ENDDO  (.NOT.  EOF ( ) ) 

GO  TOP 

IF  printdes="s" 

7 

ENDIF  (printdes="s") 

*  Water 

??  TRANSFORM (t_h2ovar,  ”@R  999, 999, 999”) +"  " 
t_h2ovar=0 

*  CLASS  IV 

??  TRANSFORM (t_ivbvar,  "@R  999,999,999”)+"  " 

??  TRANSFORM (t_ivcvar,  "@R  999,999,999")+"  " 

t_ivbvar=0 

t_ivcvar=0 

*  Class  8 

??  TRANSFORM (t_cl 8 var,  "@R  999,999,999") 
t_cl8var=0 

IF  PROW ( ) >varpagel-9  .AND.  printdes="p" 

7 

?  "PAGE  "+LTRIM ( STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  (PROW ( ) >varpagel-9  .AND.  printdes="p") 

IF  printdes="s" 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s" ) 

*  ! 

*!  Procedure:  PORDEOTH 

*  ! 

*  j  Called  by:  PRIN_PRO  (procedure  in  SYSREP.PRG) 

*!’*’**********'*'*■*■*'*'******  +  **  +  +  +  *  +  +  +  **  +  +  +  *******  +  +  +  ■*  +  +  +  ■*■*★  +  +  ★  +  ■*  +  **  +  +  *  +  ■*** 

PROCEDURE  pordeoth 
o 


IF  PROW ( ) >varpagel-15  .AND.  printdes="p" 

DO  WHILE  PROW ( ) <varpagel-2 
? 

ENDDO  ( PROW ( ) <varpagel-2 ) 

?  "PAGE  "+LTRIM(STR(pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  (PROW ( ) >varpagel-15  .AND.  printdes="p" ) 

*  List  Order  totals  this  phase 

CLEAR 

?  "  ORDER  OTHER  CLASSES  PHASE  "+phasevar 


* 


SELECT  24 
GO  TOP 
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DO  WHILE  .NOT.  EOF ( ) 

??  TRANSFORM ( class_i->order_qty, " @R  999,999,999")+"  " 

REPLACE  class_i->order_qty  WITH  0 
SKIP 

ENDDO  {.NOT.  EOF ( ) ) 

GO  TOP 
SELECT  26 
IF  printdes="s " 

7 

ENDIF  (printdes="s" ) 

*  Water 

??  TRANSFORM (o_h2ovar,  "@R  999,999,999")+"  " 
o_h2ovar=0 

*  CLASS  IV 

??  TRANSFORM (o_ivbvar,  "@R  999,999,999")+"  " 

??  TRANSFORM (o_ivcvar,  "@R  999,999,999")+"  " 

»  o_ivbvar=0 

o_ivcvar=0 

*  Class  8 

??  TRANSFORM (o_cl8var,  "SR  999,999,999") 
o_cl8var=0 

IF  PROW ( ) >varpagel-9  .AND.  printdes="p" 

7 

?  "PAGE  "+LTRIM (STR (pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW { )  >varpagel-9  .AND.  printdes='"p" ) 

IF  printdes="s" 

7 

WAIT 

ENDIF  (printdes="s") 

CLEAR 

*  {  ★  *★****★★**  +  ★★★*★-*.★*..*.*****.*..*.**.  +  .*.  *★**★*★★★*★★★*★■*•■*■***★★★*•*•*****•-*■-*-*  +  *★* 
*  | 

* !  Procedure :  REPORTHD 

★  ! 

*1  Called  by:  PRIN_PRO  (procedure  in  SYSREP.PRG) 

*  ! 

★j********************************************************************* 

PROCEDURE  reporthd 
IF  printdeso"s" 

7 

7 

‘  ENDIF  (printdes<>"s") 

IF  PROW ( ) >varpagel-4  .AND.  printdes="p" 

DO  WHILE  PROW ( ) <varpagel-2 
? 

ENDDO  (PROW( ) <varpagel-2) 

*  ?  "PAGE  ”+LTRIM(STR(pagenova) ) 

pagenova=pagenova+l 
EJECT 

ENDIF  ( PROW ( ) >varpagel-4  .AND.  printdes="p" ) 

IF  printdes="s" .AND.  ROW()>18 
WAIT 
CLEAR. 

ENDIF  (printdes="s" .AND.  ROW()>18) 

*  Need  to  choose  phase  length 

plenvar="PHASE"+LTRIM ( STR ( cl_other->phase ) ) +"LEN" 

?  "ORDER:  "+cl  other->number+"  "+orderlst->name 
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IF  vttlvao"o" 

?  "TASK  ORGANIZATION:  "+cl_other->taskorgnam 
ENDIF  (vttlva<>"o") 

phasevar=LTRIM (STR ( cl_other->phase ) ) 

?  "Phase:  "+phasevar+"  Strength  "+LTRIM ( STR ( ordertas->strength) ) +" * ■" 

??  "  Phase  Length:  " 

DO  CASE 

CASE  plenvar=" PHASE 1LEN" 

??  LTRIM (STR (orderlst->phasellen) ) 

CASE  plenvar="PHASE2LEN" 

??  LTRIM ( STR ( order lst->phase21en) ) 

CASE  plenvar="PHASE3LEN" 

??  LTRIM(STR(orderlst->phase31en) ) 

CASE  plenvar="PHASE4LEN" 

??  LTRIM ( STR (orderlst->phase41en) ) 

CASE  plenvar="PHASE5LEN" 

??  LTRIM (STR (orderlst->phase51en) ) 

CASE  plenvar="PHASE6LEN" 

??  LTRIM(STR(orderlst->phase61en) ) 

CASE  plenvar="PHASE7LEN" 

??  LTRIM(STR(orderlst->phase71en) ) 

CASE  plenvar="PHASE8LEN" 

??  LTRIM ( STR (orderlst->phase81en) ) 

CASE  plenvar="PHASE9LEN" 

??  LTRIM(STR(orderlst->phase91en) ) 

ENDCASE 

?  "Parameter  Set:  "+ordertas— >profilenam+"  "+cprofile->profiledes 
?  "  Profile:  "+cprofile->profile+"  " 

??  "  Class  VIII:  "+cprofile->med_name+"  " 

7  "  Water:  "+cprofile->water_name 

??  "  Ration  Cycle:  "+cprofile->cl_i  1+"  "+cprofile->cl  i  2+"  "+cprofile->cl 
? 

?  "  A-Ration  B-Ration  T-Ration  MRE  LRP  R/CW" 

IF  printdes="s" 

? 

ENDIF  (printdes="s") 

??  "  WATER  BARRIER  CONSTRUCTION  MEDICAL" 


*  ! 

*  ! 

Procedure: 

DETA  PRO 

*  ! 

★  t 

Called  by: 

PRINTPOL . PRG 

*  ! 

PRINTAMM. PRG 

*  ! 

+  ! 

PRINTOTH . PRG 

★  I********************************************************.*****.**.*.*.**.*.* 

PROCEDURE  deta_pro 
DO  CASE 
CASE  BAR ()=1 
vttlva="uto" 

DEACTIVATE  POPUP 
CASE  BAR ()=2 
vttlva="to" 

DEACTIVATE  POPUP 
CASE  BAR  0=3 
vttlva="o" 

DEACTIVATE  POPUP 
ENDCASE 
CLEAR 

*  Bar  1  OF  deta_j>op  PROMPT  "Unit,  Task  Org, 


and  Order  Totals 


★  l-k-k-k-k-k-k-k-k-k-k-ir-k-it-k-k-k-k-ie-k-k-k-k'k-k'k-ir-k-k-k-k-ir-k'k-k-k-k-ir-k-k-k-k-k-k'fr-kkr-k-k'k'ir-ir-ir-k'k-ir-k-k-k-k-it-k-k-k-k'k-ir-k-k-k 

*  ! 

*!  Procedure:  DETA_JBAR1 

★  I 

PROCEDURE  deta_barl 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Consumption  data  is  printed  for  water,  rations,  barrier  and 
construction  material,  and  medical  supplies  (by  weight)  for 
each  Unit,  Task  Organization  by  Phase,  Order  by  Phase  and  Order 
Total . 

ENDTEXT 

RETURN 

r  *  BAR  2  OF  deta_pop  PROMPT  "Task  Org  and  Order  Totals  Only" 

•k  ^•k'kkr-k-k'k’k-ir-k-k-k-k-k'k’k-k-k-ir'k'k-k-k'kir'kir-k-k-k’ir'k-k'k-ir'k-k-k-k-ic'k-k'k'k-k-k-k-k-k'k’k'te-k'k-h'k’k'k'k-k-ie'ie'k-k'k-k-k'k-k-k 

*  ! 

*  !  Procedure:  DETA_BAR2 

*  ! 

■k  ^■k-k-k'k-k'k'k-k-k-k-k-k-k^e-k'kie-k-k-k-k-k'k-ie-k-k'k'k-k-k'k-k-k-k-k-k-k'k-ir'ir-k-te'k-k-k’k-k-k-k-k-k'kir-k-k-k-k'k-k-k'k’k-k'k'k'k-k-ir’k 

PROCEDURE  deta_bar2 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Consumption  data  is  printed  for  water,  rations,  barrier  and 
construction  material,  and  medical  supplies  (by  weight)  for 
each  Task  Organization  by  Phase,  Order  by  Phase  and  Order 
Total. 

ENDTEXT 

RETURN 

*  BAR  3  OF  deta_pop  PROMPT  "Task  Org  and  Order  Totals  Only" 

*  ^•k’k'k’k’k'k-k'k-k’k’k-k'k'k-k-k-k'k'k-k'k-k-k-ie-k-k-k'k-k-k-k’k’k'k-kir-k'kir’k’k-ir-k'kirir’k'k-k'kit-k'k-k-k-k-k-k-k-k-ir-k-k-k-k-k-k-k-k 

*  ! 

*  !  Procedure :  DETA__BAR3 

*  ! 

*  ;  i******************************************************************** 

PROCEDURE  deta_bar3 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

1  Consumption  data  is  printed  for  water,  rations,  barrier  and 

construction  material,  and  medical  supplies  (by  weight)  for 
each  Order  by  Phase  and  for  the  Order  Total. 

ENDTEXT 

4  RETURN 

*  BAR  1  OF  prin_pop  PROMPT  "Print  Estimate  to  Printer" 

*  !*★*★  +  +  **★★★★★★★★  +  ★★*★  +  +  ★**★★**★★*★***★**  +  ★★★★★*★★**★**********•*•★  *★★** 

★  ! 

*!  Procedure:  PRIN_BAR1 

★  t 

*i****+***-+***+*+**+**+***++*+*+****+*  *.***+++++#*++*+**++******+++**+*+ 

PROCEDURE  prin_barl 
0  9,1  CLEAR  TO  16,79 
8  9,1 
TEXT 

Make  sure  printer  is  on  and  on-line. 
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ENDTEXT 


RETURN 

*  BAR  2  OF  prin_pop  PROMPT  "Print  Estimate  to  Screen" 

★I********************************************************************* 

*  ! 

*!  Procedure:  PRIN  BAR2 

*  ! 

*  !  **  +  ****★★**.*****■*■■*. ***  +  *******★******★  +  ***★*•*■  +  ★***  +  **  +  *  +  +  +  *****  +  *  +  *•*•★* 
PROCEDURE  prin_bar2 
@  9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Prints  Reports  to  the  Screen.  These  estimates  can  take  a  long  time 
to  view  this  way.  It  may  be  preferred  to  print  to  a  file  and  then 
view  the  file  with  a  work  processor. 

ENDTEXT 

RETURN 

*  BAR  3  OF  prin_pop  PROMPT  "Print  Estimate  to  ASCII  File" 

*  ! 

*!  Procedure:  PRIN  BAR 3 

*  » 

*1+*  +  +  +  *  +  +  +  *  +  +  +  *  +  +  +  +  +  +  +++  +  +  *  +  +  +  +  +  +  +  +  +++  +  +  +  +  +  +  +  +++  +  +  +  +  +  +  +  +'  +  +  +.  +  +.  +  +  +  +  +  +  +  +  +. 

PROCEDURE  prin_bar3 

@9,1  CLEAR  TO  16,79 

0  9,1 

TEXT 

ASCII  files  can  be  viewed  and  edited  with  most  word  processors,  or 
with  EDIT  if  you  are  using  a  version  of  DOS  5.0  or  higher. 

ENDTEXT 

RETURN 

*  BAR  4  OF  prin_pop  PROMPT  "Change  Printer  Defaults" 

*j  *  +  ******  +  **  +  *****  +  ******  +  *  +  ****  +  **  +  ***  +  *  +  *******  +  +  *****-*.*  +  +  ***  +  *  +  +  *** 
* ! 

*!  Procedure:  PRIN  BAR4 

*  ! 

*i  **  +  +  ***  +  +  ****  +  *•***  +  *  +  +  ****  +  ******************  +  ****  +  +  *  +  *  +  **  +  ***  +  ****** 

PROCEDURE  prin_bar4 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Change  printer  page  length  and  left  margin. 

ENDTEXT 

RETURN 

*  BAR  5  OF  prin_pop  PROMPT  "Return  to  Previous  Menu" 

+  !  *****  +  +  *********  +  +  *  +  -k  +  **-Hfk-k-k*  +  +  ->r  +  ->r  +  +  -k*  +  +  +  +  ir  +  -k**  +  +  +  -k  +  +  +  -k-lr*-H,-l,i,i,i,-)r-)ft,-ir-l, 

*  ! 

*!  Procedure:  PRIN  BAR 5 

+ !  — 

PROCEDURE  prin_bar5 
@9,1  CLEAR  TO  16,79 
0  9,1 
TEXT 


ENDTEXT 


RETURN 


*:  EOF:  PRINTOTH. PRG 
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■k 

:  PRIN  BAR2 

k 

:  PRIN  BAR 3 

k 

:  PRIN  BAR4 

k 

k 

:  PRIN  BAR 5 

k 

k 

Set  by:  ORDR_PRO 

(procedure 

in 

ORDEREP1 . PRG) 

k 

Calls:  STARTPLR 

(procedure 

in 

PRINTPOL. PRG) 

k 

:  DETA  PRO 

(procedure 

in 

PRINTPOL. PRG) 

k 

k 

:  PRIN_PRO 

(procedure 

in 

SYSREP . PRG) 

k 

Documented  04/16/94  at  11:02 

SNAP!  version  5.00 

k 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 

STORE  PROGRAM ()  TO  progvar 
STORE  SPACE (60)  TO  filevar 
STORE  "  NO”  TO  detailva 
STORE  "  "  TO  printdes 
STORE  SPACE (3)  TO  vttlva 
STORE  SPACE (9)  TO  plenvar 
STORE  1  TO  unitqty 
STORE  1  TO  qtycount 
CLEAR 

*  Setup  Printers  for  Condensed  Print 
DO  CASE 


CASE  vprintva="Dot  Matrix" 

???  CHR (27 ) +CHR ( 15 ) 

CASE  vprintva="Laser" 

CASE  vprintva="DeskJet" 

???  CHR(27) +" (sl6. 66H" 

ENDCASE 
DO  startplr 

DEFINE  POPUP  deta_pop  FROM  1,2 

DEFINE  BAR  1  OF  deta_pop  PROMPT  "LIN  by  LIN  Detail,  plus  all  Totals" 

DEFINE  BAR  2  OF  deta_pop  PROMPT  "Summary  Report  -  Unit,  Task  Org,  and  Order 
Totals" 

DEFINE  BAR  3  OF  deta_pop  PROMPT  "Summary  Report  -  Task  Org  and  Order  Totals 
Only" 

DEFINE  BAR  4  OF  deta_pop  PROMPT  "Summary  Report  -  Order  Totals  Only" 

ON  SELECTION  POPUP  deta  pop  DO  deta  pro 
ON  BAR  1  OF  deta_pop  DO  deta_barl 
ON  BAR  2  OF  deta_pop  DO  deta  bar2 
ON  BAR  3  OF  deta_pop  DO  deta  bar3 


« 


9 


* 
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ON  BAR  4  OF  deta_pop  DO'deta_bar4  , 

DEFINE  POPUP  prin_pop  FROM  1,1 

DEFINE  BAR  1  OF  prin_pop  PROMPT  "Print  Estimate  to  Printer" 

DEFINE  BAR  2  OF  prin_pop  PROMPT  "Print  Estimate  to  Screen" 

DEFINE  BAP.  3  OF  prin_pop  PROMPT  "Print  Estimate  to  ASCII  File" 

DEFINE  BAR  4  OF  prin_pop  PROMPT  "Change  Printer  Defaults" 

DEFINE  BAP  5  OF  prin_pop  PROMPT  "Return  to  Previous  Menu" 

ON  SELECTION  POPUP  prin_pop  DO  prin_pro 

ON  BAR  1  OF  prin_pop  DO  prin_barl 

ON  BAIR  2  OF  prin_pop  DO  prin_bar2 

ON  BAP.  3  OF  prin_pop  DO  prin_bar3 

ON  BAR  4  OF  prin_pop  DO  prin_bar4 

ON  BAR  5  OF  prin_pop  DO  prin_bar5 

DO  WHILE  PROMPT ()<>" Return  to  Previous  Menu" 

ACTIVATE  POPUP  prin_pop 
ENDDO  ( PROMPT () <>"Return  to  Previous  Menu") 


* 


Procedure:  PRIN_PRO 

Called  by:  SYSREP.PRG 

:  PRINTPOL . PRG 
:  PRINTAMM. PRG 
:  PRINTOTH . PRG 


★ 

★ 

★ 

★ 

•k 

★ 


* 

■k 

•k 

•k 

•k 

•k 

* 

★ 

★ 


PRNSETUP . PRG 
STARTPLR 

(procedure 

in 

PRINTPOL. PRG) 

REPORTHD 

(procedure 

in 

PRINTPOL. PRG) 

TFHEAD 

(procedure 

in 

PRINTPOL. PRG) 

LINPOL 

(procedure 

in 

PRINTPOL. PRG) 

POLCALC 

(procedure 

in 

PRINTPOL. PRG) 

PUNITPOL 

(procedure 

in 

PRINTPOL. PRG) 

PTASKPOL 

(procedure 

in 

PRINTPOL. PRG) 

PORDEPOL 

(procedure 

in 

PRINTPOL. PRG) 

LINAMM 

(procedure 

in 

PRINTAMM. PRG) 

AMMOCALC 

(procedure 

in 

PRINTAMM. PRG) 

PUNITAMM 

(procedure 

in 

PRINTAMM. PRG) 

PTASKAMM 

(procedure 

in 

PRINTAMM. PRG) 

PORDEAMM 

(procedure 

in 

PRINTAMM. PRG) 

OTHECALC 

(procedure 

in 

PRINTOTH. PRG) 

PUNITOTH 

(procedure 

in 

PRINTOTH. PRG) 

PTASKOTH 

(procedure 

in 

PRINTOTH. PRG) 

PORDEOTH 

(procedure 

in 

PRINTOTH. PRG) 

PROCEDURE  prin_pro 
DO  CASE 
CASE  BAR  ()=1 
printdes="p" 

CASE  BAR ()=2 
printdes="s" 

CLEAR 

CASE  BAR ()=3 
printdes="f " 

ACTIVATE  WINDOW  process 
@  1,1  SAY  "Enter  path  and  file  name. 
@3,1  GET  filevar 
READ 

SET  ALTERNATE  TO  Sfilevar 
DEACTIVATE  WINDOW  process 
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CASE  BAR  0=4' 

DO  prnsetuo 
CASE  BAR  ()=5 

DEACTIVATE  POPUP 
RETURN 
ENDCASE 
CLEAR 

ACTIVATE  POPUP  deta_pop 

*  Set  according  to  destination 
DO  CASE 

CASE  printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
CASE  printdes="s'' 

CASE  printdes="f" 

SET  ALTERNATE  ON 
ENDCASE 

*  Initialize  Variables 
STORE  "  "  TO  phasevar 
taskvar=SPACE (60) 

STORE  1  TO  pagenova 

*-***  +  **  +  ***  +  r[ijlese  variable  are  hard  coded.  May  be  replaced  with  array. 

*  track  Unit  JP4  consumption  this  phase 
STORE  0  TO  jp4 

*  track  Unit  JP4  consumption  total 
STORE  0  TO  jp4t 

*  track  Task  Org  JP4  consumption  this  phase 
STORE  0  TO  jp4run 

*  track  Task  Org  JP4  consumption  total 
STORE  0  TO  jp4runt 

*  track  Order  JP4  consumption  this  phase 
STORE  0  TO  jp4con 

*  track  Order  JP4  consumption  total 
STORE  0  TO  jp4cont 

*  track  Unit  JP4  aircraft  storage 
STORE  0  TO  jp4s 

*  track  Task  Org  JP4  aircraft  tank  storage 
STORE  0  TO  jp4tnkr 

*  track  Order  JP4  aircraft  tank  storage 
STORE  0  TO  jp4tnkt 

*  track  Unit  DSL  consumption  this  phase 
STORE  0  TO  dsl 

*  track  Unit  DSL  consumption  total 
STORE  0  TO  dslt 

*  track  Task  Org  DSL  consumption  this  phase 
STORE  0  TO  dslrun 

*  track  Task  Org  DSL  consumption  total 
STORE  0  TO  dsl runt 

*  track  Order  DSL  consumption  this  phase 
STORE  0  TO  dslcon 

*  track  Order  DSL  consumption  total 
STORE  0  TO  dslcont 

*  track  Unit  DSL  tank  storage 
STORE  0  TO  dsls 

*  track  Task  Org  DSL  tank  storage 
STORE  0  TO  dsltnkr 

*  track  Order  DSL  tank  storage 
STORE  0  TO  dsltnkt 

*  track  Unit  MOG  consumption  this  phase 
STORE  0  TO  mog 


Memory? 


¥ 


* 
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*  track  Unit  MOG  consumption  total 
STORE  0  TO  mogt 

*  track  Task  Org  MOG  consumption  this  phase 
STORE  0  TO  mogrun 

*  track  Task  Org  MOG  consumption  total 
STORE  0  TO  mogrunt 

*  track  Order  MOG  consumption  this  phase 
STORE  0  TO  mogcon 

*  track  Order  MOG  consumption  total 
STORE  0  TO  mogcont 

*  track  Unit  MOG  tank  storage 
STORE  0  TO  mogs 

*  track  Task  Org  MOG  tank  storage 
STORE  0  TO  mogtnkr 

*  track  Order  MOG  tank  storage 
STORE  0  TO  mogtnkt 

*  Will  need  to  track  each  unit  as  done 
STORE  SPACE (60)  TO  unitvar 

STORE  0  TO  ordervar 
STORE  0  TO  countvar 
STORE  SPACE (60)  TO  taskvar 

*  dbf's  and  variables 
DO  startplr 

SELECT  20 

SET  ORDER  TO  unitname 
ordervar=NUMBER 

IF  printdes="f "  .OR.  printdes="p" 

ACTIVATE  WINDOW  process 
ENDIF  (printdes="f "  .OR.  printdes="p" ) 
countvar=l 
SELECT  18 
SET  FILTER  TO 

SET  FILTER  TO  NUMBER=ordervar 
SET  ORDER  TO  phasetas 
GO  TOP 
IF  EOF  ( ) 

ACTIVATE  WINDOW  small 
WAIT  "ERROR" 

DEACTIVATE  WINDOW  small 
QUIT 

ENDIF  (EOF ( ) ) 

CLEAR 

DO  WHILE  .T.  &&  ordertas 

SELECT  20 
SET  FILTER  TO 
GO  TOP 

SET  FILTER  TO  taskorgnam=ordertas->taskorgnam  .AND.  phase=ordertas->phase 
GO  TOP 

IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO" ) 

DO  reporthd 

IF  PROW ( ) >varpagel-9  .AND.  printdes="p" 

?  "PAGE  "+LTRIM(STR(pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  (PROW ( ) >varpagel-9  .AND.  printdes="p" ) 

IF  printdes="s"  &&.AND.  row()>20 
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WAIT 
CLEAR 

ENDIF  (printdes="s" 

7 

*  ? 

*  ?  taskorgnam 

*  9  »* 

DO  tfhead 

7 

taskvar=polest->taskorgnam 

STORE  RECNO ( )  TO  recnovar 

qtycount=polest->qty 

DO  WHILE  unitqty<=qtycount  &&polest->qty 

unitvar=polest->unitname 
*qtycount=polest->qty 
IF  detailva="YES" 

?  src+"  "+unitvar 

?  TRANSFORM (unitqty, "99”) +"  OF  "+TRANS FORM (qty count, "99" 
IF  printdes<>"s" 

?  "LIN  NOMENCLATURE  QTY  EC  POL 

TANK  CAPACITY  WEIGHT" 

o  >» _  _  _ _  _ 


ELSE 

?  "LIN  NOMENCLATURE  QTY  EC  POL 

TANK  CAPACITY" 


ENDIF  (printdes<>"s") 

ENDIF  ( detail va="YES" ) 

■*r  ★  ★  ★ 

IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO" ) 

DO  WHILE  .T.  && . NOT .  EOF ( ) 

DO  linpol 
DO  polcalc 
SKIP 

IF  uni tnameouni t va r 
DO  punitpol 
EXIT 

ENDIF  (unitnameOunitvar ) 

ENDDO  (.T.  &&.NOT.  EOF ( ) ) 

IF  unitqty<qtycount 
unitqty=unitqty+l 
GO  recnovar 

IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO") 
LOOP 
ELSE 

IF  .NOT.  EOF ( ) 

STORE  RECNO ()  TO  recnovar 

unitvar=polest->unitname 

unitqty=l 

qtycount=polest->qty 
IF  printdes="s"  .AND.  detailva="NO" 
CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO" ) 
ELSE 


&&.AND.  row()>20) 


*f 


) 

CONSUMPTION 


CONSUMPTION 


EXIT 

ENDIF  (.NOT.  EOF ( ) ) 

ENDIF  ( unitqty<qtycount ) 

ENDDO  (unitqty<=qtycount  &&polest->qty ) 

unitqty=l 

DO  ptaskpol 

SELECT  18  &&  ordertas 

SKIP 

IF  LTRIM (STR (phase ))  Ophasevar 
DO  pordepol 

ENDIF  (LTRIM(STR(phase) )<>phasevar) 

STORE  LTRIM ( STR (phase ) ) TO  phasevar 
IF  EOF ( ) 

EXIT 

ENDIF  ( EOF ( ) ) 

ENDDO  &&  ordertas  (.T.  &&  ordertas)  (.T. 

&&  ordertas) 

*  List  Order  totals 
7 

7 

IF  printdes<>"s" 

?  "ORDER  FUEL  TOTAL  CONSUMPTION 

WEIGHT" 

**NOTE:  SOME  HARD  CODING  OF  FUEL  WEIGHTS  IN  FOLLOWING! 

?  ..  JP4  : 

"+TRANSFORM ( jp4cont, "999,  999,  999.99")+" 

"+TRANSFORM ( jp4cont*6 . 375, "9, 999,999, 999.99") 

?  "  DSL: 

" +TRANSFORM (dslcont, "999, 999, 999.99")  +" 

"+TRANSFORM (dslcont*7 . 034 , "9, 999, 999, 999.99") 

?  "  MOG: 

"+TRANSFORM (mogcont, "999,999, 999.99")+” 

"+TRANSFORM (raogcont*6 . 203, "9,999, 999,999.99") 

7 

ELSE 

?  "ORDER  FUEL  TOTAL  CONSUMPTION  WEIGHT" 

**NOTE:  SOME  HARD  CODING  OF  FUEL  WEIGHTS  IN  FOLLOWING! 

?  "  JP4:  "+TRANSFORM( jp4cont, ”999, 999, 999. 99”) +" 

"+TRANSFORM ( jp4cont*6 .375, "9,999,999, 999.99") 

?  "  DSL:  "+TRANSFORM (dslcont, "999, 999, 999. 99") +" 

"+TRANSFORM (dslcont*7 . 034, "9, 999, 999, 999.99") 

?  "  MOG:  "+TRANSFORM (mogcont, ”999, 999,  999. 99") +" 

"+TRANSFORM(mogcont*6. 203, "9, 999, 999, 999.99") 

7 

ENDIF  (printdeso"s") 

*  Print  last  page  number 

IF  PROW ( ) >1  .AND.  printdes="p" 

DO  WHILE  PROW ( ) <varpagel-l 

7 

ENDDO  (PROW(Xvarpagel-l) 

?  "PAGE  "+LTRIM(STR(pagenova)  ) 

ENDIF  ( PROW ( ) >1  .AND.  printdes="p" ) 

SET  PRINT  OFF 

SET  DEVICE  TO  SCREEN 

IF  printdes="s" 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s") 

IF  printdes="f" 


-> 


?  "END  OF  REPORT" 

SET  ALTERNATE  OFF 
SET  DEVICE  TO  SCREEN 
DEACTIVATE  WINDOW  process 
ENDIF  (printdes=”f " ) 

IF  printdes="p" 


DEACTIVATE  WINDOW  process 
ENDIF  (printdes="p" ) 

SELECT  18 
SET  FILTER  TO 
SELECT  20 
SET  FILTER  TO 
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Procedure:  STARTPLR 

Called  by:  PRINTPOL.PRG 
:  PRINTAMM. PRG 
:  PRINTOTH . PRG 
:  PRIN_PRO 

Calls:  STARTHLP . PRG 

Uses:  TASKORG. DBF 
:  CSRCLIST. DBF 
:  ORDERLST . DBF 
:  CPROFILE . DBF 
:  PROFILES. DBF 
:  POLRATE. DBF 
:  POSTURE. DBF 
:  INTENSTY. DBF 
:  POLWGT . DBF 
:  CSRCLINQ. DBF 
:  ORDERTAS . DBF 
:  DODIC . DBF 
:  POLEST . DBF 
:  AMMOEST . DBF 
:  AMMORATE . DBF 
:  MEDICAL. DBF 
:  WATER. DBF 
:  CLASS_I . DBF 
:  CL_OTHER. DBF 

MDX  files:  TASKORG. MDX 
:  CSRCLIST. MDX 
:  ORDERLST. MDX 
:  CPROFILE. MDX 
:  PROFILES. MDX 
:  POLRATE . MDX 
:  INTENSTY. MDX 
:  POLWGT. MDX 
:  CSRCLINQ. MDX 
:  ORDERTAS. MDX 
:  DODIC. MDX 
:  POLEST. MDX 
:  AMMOEST. MDX 
:  AMMORATE. MDX 
:  MEDICAL. MDX 
:  WATER. MDX 


(procedure  in  SYSREP.PRG) 
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*!  :  CLASS_I.MDX 

*!  :  CL_OTHER . MDX 

*  ! 

PROCEDURE  startplr 

*  OPEN  FILES 
CLOSE  DATA 
DO  starthlp 

STORE  1  TO  statusvar 
SELECT  1 
USE  taskorg 
SELECT  2 
USE  csrclist 
SELECT  3 
USE  orderlst 
SELECT  4 

USE  cprofile  ORDER  profilenam 
SELECT  7 

USE  profiles  ORDER  profile 
* SELECT  8 

*USE  ammorate  ORDER  lin 

SELECT  9 

USE  polrate 

SELECT  17 

USE  posture 

SELECT  10 

USE  intensty 

SELECT  12 

USE  polwgt  ORDER  pol_type 

SELECT  14 

USE  csrclinq 

SELECT  18 

USE  ordertas 

SELECT  19 

USE  dodic  ORDER  dodic 
SELECT  20 
USE  polest 
SELECT  21 
USE  ammoest 

*  SET  RELATIONS 
SELECT  4 

SET  ORDER  TO  profile 

SET  RELATION  TO  profile  INTO  profiles 
SET  ORDER  TO  profilenam 
SELECT  18 

SET  RELATION  TO  profilenam  INTO  cprofile 

SELECT  3 

USE  orderlst 

SET  ORDER  TO  NUMBER 

SEEK  polest->number 

SELECT  14 

SET  ORDER  TO  lin 

SELECT  20 

SET  ORDER  TO  lin 

SET  RELATION  TO  lin  INTO  csrclinq 

*f  *  +  ******★★*★***★**★★**  +  **★*  +  +  +  *★★★★★*★*★***★★★★  +  *★★  +  ★*★***  +  ★  +  *★★*  +  +  ★* 

*  ! 

*!  Procedure:  POLCALC 

★  I 
* ! 


Called  by:  CALCPOL-PRG 


(procedure  in  SYSREP.PRG) 


*  !  :  PRIN_PRO 

*  ! 

★  I*******************.**.*****************.****.***************.*.**********.* 

PROCEDURE  polcalc 
DO  CASE 

CASE  pol_type=" JP4 ’’ 

*  track  Unit  JP4  consumption  this  phase 
jp4=jp4+pol_qty 

*  track  Unit  JP4  consumption  total 
jp4t=jp4t+pol_qty 

*  track  Task  Org  JP4  consumption  this  phase 
jp4run=jp4run+pol_qty 

*  track  Tsk  Org  JP4  consumption  total 
jp4runt=jp4runt+pol_qty 

*  track  Order  JP4  consumption  this  phase 
jp4con=jp4con+pol_qty 

*  track  Order  JP4  consumption  total 
jp4cont=jp4cont+pol_qty 

*  track  Unit  aircraft  tank  storage 
jp4s=jp4s+f t_cap 

*  track  Task  Org  JP4  aircraft  tank  storage 
jp4tnkr=jp4tnkr+ft_cap 

*  track  Order  JP4  aircraft  tank  storage 
jp4tnkt=jp4tnkt+ft_cap 

CASE  pol_type="DSL" 

*  track  Unit  DSL  consumption  this  phase 
dsl=dsl+pol_qty 

*  track  Unit  DSL  consumption  total 
dslt=dslt+pol_qty 

*  track  Task  Org  DSL  consumption  this  phase 
dsl run=ds 1 run+pol_qty 

*  track  Task  Org  DSL  consumption  total 
dsl runt=dsl runt +pol_qty 

*  track  Order  DSL  consumption  this  phase 
dslcon=dslcon+pol  qty 

*  track  Order  DSL  consumption  total 
dslcont=dslcont+pol  qty 

*track  Unit  DSL  tank  storage 
dsls=dsls+f t_cap 

*  track  Task  Org  DSL  tank  storage 
dsltnkr=dsltnkr+ft_cap 

*  track  Order  DSL  aircraft  tank  storage 
dsltnkt=dsltnkt+ft_cap 

CASE  pol_type="MOG" 

*  track  Unit  MOG  consumption  this  phase 
mog=mog+pol  qty 

*  track  Unit  MOG  consumption  total 
mogt=mogt+pol_qty 

*  track  Task  Org  MOG  consumption  this  phase 
mogrun=mogrun+pol_qty 

*  track  Task  Org  MOG  consumption  total 
mogrunt=mogrunt+pol  qty 

*  track  Order  MOG  consumption  this  phase 
mogcon=mogcon+pol  qty 

*  track  Order  MOG  consumption  total 
mogcont=mogcont+pol  qty 

*  track  Unit  MOG  tank  storage 
mogs=mogs+ft_cap 

*  track  Task  Org  MOG  tank  storage 
mogtnkr=mogtnkr+ft_cap 
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*  track  Order  MOG  tank  storage 
mogtnkt=mogtnkt+f t  cap 

ENDCASE 

* 

★  ! 

*!  Procedure:  PUNITPOL 

*  i 

*!  Called  by:  PRIN_PRO  (procedure  in  SYSREP.PRG) 

*  ! 

PROCEDURE  punitpol 
IF  vttlva<>"to"  .AND.  vttlva<>"o" 
g 
7 

IF  PROW ( ) >varpagel-10  .AND.  printdes="p" 

?  "PAGE  "+LTRIM ( STR (pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  (PROW ( ) >varpagel-10  .AND.  printdes="p" ) 

IF  printdes="s"  .AND.  detailva="YES" 

WAIT 

.CLEAR 

ENDIF  (printdes="s"  .AND.  detail va="YES" ) 

IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

ENDIF  (printdes="s"  .AND.  detail va="NO" ) 

?  unitvar 

?  TRANSFORM (unitqty, "99")+"  OF  "+TRANSFORM (qtycount, "99") 

IF  printdes<>"s" 

?  "UNIT  FUEL  FOR  PHASE  "+phasevar+" 

CONSUMPTION  TANK  CAPACITY  WEIGHT" 

**NOTE:  SOME  HARD  CODING  OF  FUEL  WEIGHTS  IN  FOLLOWING! 

?  "  JP4 : 

"+TRANSFORM(jp4, "999,999, 999.99") +"  "+TRANSFORM ( jp4s, "999, 999, 999.99")+” 

"+TRANSFORM (jp4*6.375, "9,  999,  999,  999.99") 

?  "  DSL: 

"+TRANSFORM (dsl, "999,999, 999.99")+"  "+TRANSFORM (dsls, "999, 999, 999.99")+" 

"+TRANSFORM(dsl*7 . 034, "9, 999, 999, 999.99") 

?  "  MOG: 

"+TRANSFORM (mog, "999, 999, 999.99")+"  "+TRANSFORM (mogs, "999, 999, 999.99")+" 
"+TRANSFORM (mog*6 . 203, "9, 999, 999, 999.99") 

ELSE 

?  "UNIT  FUEL  FOR  PHASE  "+phasevar+"  CONSUMPTION  TANK  CAPACITY 

WEIGHT" 

**NOTE:  SOME  HARD  CODING  OF  FUEL  WEIGHTS  IN  FOLLOWING! 

?  "  JP4 :  "+TRANSFORM (jp4, "999, 999, 999. 99")+" 

"+TRANSFORM( jp4s, "999,999, 999.99")+"  "+TRANSFORM( jp4*6. 375, ”9,999, 999, 999.99") 
?  "  DSL:  "+TRANS FORM (dsl, "999,999,999.99")+" 

"+TRANS FORM (dsls, "999, 999, 999.99")+"  "+TRANSFORM (dsl*7 .034, "9, 999, 999, 999.99") 
?  "  MOG:  "+TRANSFORM(mog, "999, 999, 999. 99") +" 

"+TRANSFORM(mogs, "999, 999, 999.99") +"  "+TRANSFORM (mog*6 . 203, "9, 999, 999,999.99") 
ENDIF  (printdes<>"s") 

7 

IF  printdes="s" 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s") 

ENDIF  (vttlva<>"to"  .AND.  vttlva<>"o") 


*Reset  Unit  variables 


jp4  =  0 

dsl=0 

mog=0 

jp4s=0 


dsls=0 

mogs=0 

*!+*  +  ********  +  ***.*******  +  +  **  +  ******  +  *****+**  +  ****  +  +  *  +  **.***.**1.  +  *.i.jr*.  +  +  *  +  i. 
*  ! 

* !  Procedure:  PTASKPOL 

*  ! 

* •  Called  by:  PRIN  PRO  (procedure  in  SYSREP.PRG) 

*  ! 

PROCEDURE  ptaskpol 
IF  vttlvao"o" 

7 

7 


IF  PROW ( ) >varpagel-9  .AND.  printdes=”p” 

?  "PAGE  "+LTRIM ( STR (pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW ( ) >varpagel-9  .AND.  printdes="p" ) 

IF  printdes="s"  .AND.  ROW()>20  .AND.  detailva=,'YES" 

WAIT 

CLEAR 

ENDIF  (printdes="s" .AND.  ROW()>20  .AND.  detailva="YES " ) 


IF  printdes="s"  .AND.  detailva="NO" 

CLEAR 

ENDIF  (printdes="s"  .AND.  detailva="NO" ) 

*  List  Task  Org  totals 
?  taskvar 
7 

IF  printdes<>”s" 

?  "TASK  ORG  FUEL  FOR  PHASE  "+phasevar+" 

CONSUMPTION  TANK  CAPACITY  WEIGHT" 

**NOTE:  SOME  HARD  CODING  OF  FUEL  WEIGHTS  IN  FOLLOWING! 

?  "  JP4  : 

"+TRANSFORM ( jp4run, "999, 999,  999.99") +" 

" +TRANSFORM { jp4tnkr, "999,  999,  999.99")+" 

"+TRANSFORM ( jp4run*6 . 375,  ”9,  999,  999,  999. 99") 

?  "  DSL: 

" +T RANS FORM (dsl run, "999, 999, 999.99") +" 

"+TRANSFORM (dsltnkr, "999, 999, 999.99")+" 

"+TRANSFORM (dslrun*7 . 034 , "9, 999, 999, 999. 99") 

?  "  MOG: 

"+TRANSFORM (mogrun, "999, 999,  999.99") +" 

"+TRANSFORM (mogtnkr, "999, 999,  999. 99") +" 

"+TRANSFORM (mogrun*6 . 203, "9, 999,  999,  999. 99") 

ELSE 

?  "TASK  ORG  FUEL  FOR  PHASE  "+phasevar+"  CONSUMPTION  TANK  CAPACITY 

WEIGHT" 

**NOTE:  SOME  HARD  CODING  OF  FUEL  WEIGHTS  IN  FOLLOWING! 

?  "  JP4 :  "+TRANS FORM (jp4 run, "999,999,999.99”)+" 

"+TRANSFORM ( jp4tnkr, "999, 999,  999.99") +" 

"+TRANSFORM( jp4run*6. 375,  "9,  999,  999,  999.99") 

1  "  DSL:  "+TRANS FORM (dsl run, ”999,999,999.99")+" 

"+TRANSFORM (dsltnkr, "999, 999, 999.99”) +" 

"+TRANSFORM (dslrun*7 . 034 , "9, 999, 999, 999. 99") 


<* 


* 


?  "  MOG:  "+TRANSFORM(mogrun, "999, S99, 999. 99") +" 

"+T RAWS FORM (mogtnkr, "999, 999,  999. 99") +" 

"+TRANSFORM (mogrun*6 .203, "9, 999, 999, 999. 99”) 

ENDIF  (printdes<>"s" ) 

7 

ENDIF  (vttlvao"o") 

*  Reset  Task  Org  variables 
jp4run=0 

dslrun=0 

mogrun=0 

jp4tnkr=0 

dsltnkr=0 

mogtnkr=0 

IF  printdes="s" 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s") 

•k  f  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk+kkkkkk 

★  ! 

*!  Procedure:  PORDEPOL 

*  ? 

*!  Called  by:  PRIN_PRO  (procedure  in  SYSREP.PRG) 

*  | 

f  kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk  k  k  k  k 


PROCEDURE  pordepol 

7 

7 

IF  PROW  ( )  >varpagel-9  .AND.  printdes=:"p" 

?  "PAGE  "+LTRIM ( STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  (PROW( ) >varpagel-9  .AND.  printdes="p" ) 

*IF  printdes="s"  &&.AND.  row()>14 

*  WAIT 

*  CLEAR 
*ENDIF 

*  List  Order  totals  this  phase 
IF  printdes<>"s" 

?  "ORDER  FUEL  FOR  PHASE  "+phasevar+" 

TANK  CAPACITY  WEIGHT" 

**NOTE:  SOME  HARD  CODING  OF  FUEL  WEIGHTS  IN  FOLLOWING! 
?  "  JP4 : 

"+TRANSFORM ( jp4con, "999, 999, 999 . 99") +" 

"+TRANSFORM ( jp4tnkt, "999, 999, 999 . 99") +" 

"+TRANSFORM ( jp4con*6 . 375, "9, 999, 999, 999.99”) 

?  "  DSL: 

"+TRANSFORM (dslcon, "999, 999, 999.99")+" 

"+TRANSFORM (dsltnkt, "999, 999, 999.99")+" 
"+TRANSFORM(dslcon*7 . 034,  "9,  999,  999,  999.99") 

?  "  MOG: 

"+TRANSFORM (mogcon, "999, 999, 999.99") +" 

"+TRANSFORM (mogtnkt, "999,  999,  999.99")+" 

"+TRANSFORM (mogcon* 6 . 203, "9, 999, 999, 999.99") 

ELSE 

?  "ORDER  FUEL  FOR  PHASE  "+phasevar+"  CONSUMPTION 
WEIGHT" 

**NOTE:  SOME  HARD  CODING  OF  FUEL  WEIGHTS  IN  FOLLOWING! 


CONSUMPTION 


TANK  CAPACITY 


307 


?  "  JP4  :  "+TRANSFORM(  jp4con,  "999,  999,  999. 99")  +  " 

"+TRANSFOP.M  ( jp4tnkt,  "999,999,999.99")+" 

"+TRANSFORM ( jp4con*6 . 375 ,  "9,  999,  999,  999 . 99” ) 

9  "  DSL:  "+TRANSFORM(dslcon, "999, 999, 999. 99") +" 

"+TRANSFORM(dsltnkt, "999,999,999.99”)+" 

"+TRANSF0RM(dslcon*7 . 034,  "9,  999,  999,  999. 99") 

?  "  MOG:  "+TRANSFORM (mogcon,  "999,  999,  999 .99")  +" 

"+TRANSFORM (mogtnkt, "999, 999, 999. 99") +" 

"+TRANSFORM (mogcon* 6 . 203, "9, 999, 999, 999. 99") 

ENDIF  (printdes<>"s") 

7 

IF  printdes="s" 

7 

WAIT 

CLEAR 

ENDIF  (printdes="s")  4 

*  Reset  Order  Fuel  variables 
jp4con=0 

dslcon=0 

mogcon=0 

jp4tnkt=0 

dsltnkt=0 

mogtnkt=0 

it*********************************************.*.**.*..*.**.*.*..*.****.*.********* 

*  ! 

*!  Procedure:  LINPOL 

*  ! 

* ■  Called  by:  PRIN  PRO  (procedure  in  SYSREP.PRG) 

* !  ~ 

*  !  ***************************  +  **********  +  *  +  *  +  *******  +  *****  +  ************ 

PROCEDURE  linpol 

*  Do  one  LIN  at  a  time 
IF  detailva="YES" 

STORE  TRANSFORM (pol_qty, "@R  999,999,999.99")  TO  pollvar 
STORE  TRANSFORM (ft_cap, "@R  999,999,999.99")  TO  pol2var 
STORE  TRANSFORM (pol_qty*lbs_gal, "SR  999,999,999.99")  TO  pol3var 
?  lin+"  "+SUBSTR ( lin_nomen, 1,25)+"  "+TRANSFORM (quantity, "9999" ) +" 

"+equip_cat+" 

+"  "+pol_type+"  " +pollvar+"  "+pol2var 

IF  printdeso"s" 

??"  ”+pol3var 
ENDIF  (printdes<>"s") 

ENDIF  (detailva="YES")  * 

IF  PROW ( ) >varpagel-5  .AND.  printdes="p" 

?  "PAGE  "+LTRIM (STR (pagenova ) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW ( ) >varpagel-5  .AND.  printdes="p" )  « 

IF  printdes="s"  .AND.  ROW()>20 
WAIT 
CLEAR 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

*  ! **+*+*******++*****+**++****+*******+******+*+*+****+*+**+****+****** 

*  ! 

*!  Procedure:  REPORTHD 

*  ! 

* ■  Called  by:  PRIN  PRO  (procedure  in  SYSREP.PRG) 

* !  — 

★  J  +  -*•**  +  **★+*★★■*.•*.********.  +  +  *  **★  +  •*■***★★★**•★★★-*:★*■*■■*.•*■•*.•*■*•*■  +  •*★**★•*■■*•★*  +  +  *****-*.-*. 

PROCEDURE  reporthd 


308 


IF  PROW ( ) >varpagel-4  .AND.  printdes="p" 

?  "PAGE  "+LTRIM ( STR (pagenova) ) 

pagenova=pagenova+l 

EJECT 

ENDIF  ( PROW ( ) >varpagel-4  .AND.  printdes="p” ) 

IF  printdes="s" .AND.  ROW()>18 
WAIT 
CLEAR 

ENDIF  (printdes="s"  .AND.  ROW()>18) 

*  Need  to  choose  phase  length 

plenvar="PHASE"+LTRIM ( STR (polest->phase) ) +"LEN" 

?  polest->number+"  "+orderlst->name 
IF  printdes=”s" 

7 

ENDIF  (printdes="s") 

??"  ESTIMATED  BULK  POL  CONSUMPTION  REPORT  as  of  "+DTOC ( DATE ( ) ) 

*  r 

*!  Procedure:  TFHEAD 

*  ! 

*!  Called  by:  PRIN__PRO  (procedure  in  SYSREP.PRG) 

★  !  ~ 

PROCEDURE  tfhead 
?  polest->taskorgnam 
phasevar=LTRIM(STR(polest->phase) ) 

?  "Phase:  "+phasevar+"  Strength  "+LTRIM (STR (ordertas->strength) ) +"%" 
??  "  Phase  Length:  " 

DO  CASE 

CASE  plenvar="PHASElLEN" 

??  LTRIM(STR (orderlst->phasellen) ) 

CASE  plenvar="PHASE2LEN" 

??  LTRIM(STR(orderlst->phase21en) ) 

CASE  plenvar="PHASE3LEN" 

??  LTRIM (STR ( orderlst->phase31en) ) 

CASE  plenvar="PHASE4LEN " 

??  LTRIM (STR (orderlst->phase41en) ) 

CASE  plenvar="PHASE5LEN " 

??  LTRIM(STR(orderlst->phase51en) ) 

CASE  plenvar= "PHASE6LEN " 

??  LTRIM(STR(orderlst->phase61en) ) 

CASE  plenvar="PHASE7LEN" 

??  LTRIM(STR(orderlst->phase71en) ) 

CASE  p 1 en va  r = " PHAS  E  8  LEN " 

11  LTRIM(STR(orderlst->phase81en) ) 

CASE  p 1 en va r = " PHAS E 9 LEN " 

??  LTRIM ( STR (orderlst->phase91en } ) 

ENDCASE 

?  "Parameter  Set:  "+ordertas->prof ilenam+"  "+cprofile->profiledes 
?  "  Profile:  "+cprof ile->prof ile 

7 

IF  printdeso"s"  .AND.  vttlva<>"o" 

7 


categories 


Equipment  Usage  Profile  in  daily  hours  of  operation  for  all 


except  Wheeled  Vehicles  which  are  in  daily  KMs  driven. 


— Tracked  Vehicles-  | " 

?  "  I  AE  AV  CE  GN  HG  MH 

WV  TV_T I  TV_CC  TV'  SR  |  " 

?  " | "+TRANSFORM (profiles->ae  hrs , " 9999 . 9" ) +"  " 

??  TRANSFORM (profiles->av  hrs , " 9959 . 9" ) +"  " 

??  TRANSFORM (prof iles->ce~hrs ,  "9999 . 9" ) +" 

??  TRANSFORM (prof iles->gn_hrs 9999.9”)+" 

??  TRANSFORM (profiles->hg_hrs, "9999. 9") +"  " 

??  TRANSFORM (prof iles->mh_hrs,  "9999. 9") +"  " 

??  TRANSFORM (profiles->ov_hrs,  "9999. 9") +"  '* 

??  TRANSFORM (prof iles->sg_hrs, "9999.9") +"  " 

??  TRANSFORM (prof iles->sv  hrs , "9999 . 9" ) +"  " 

??  TRANSFORM (prof iles->wv~kms , "9999 . 9" ) +”  " 

??  TRANSFORM (prof iles->tv_ti_hrs, "9999 . 9") +"  ” 

??  TRANSFORM (prof iles->tv_cc_hrs ,  ”9999 . 9" ) +"  " 

??  TRANSFORM (prof iles->tv  sr  hrs, "9999 . 9" ) +" 

7 


OV 


SG 


SV 


ENDIF  (printdes<>"s "  .AND.  vttlva<>"o") 

★  f 

*!  Procedure:  DETA  PRO 

* !  ~ 

*!  Called  by:  PRINTPOL.PRG 

*!  :  PRINTAMM. PRG 

*!  :  PRINTOTH. PRG 

*  ! 

+ 1  *  +  *  +  +  *  +  +  +  *  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  + 
PROCEDURE  deta_pro 
DO  CASE 
CASE  BAR ()=1 

detail va="YES " 

DEACTIVATE  POPUP 
CASE  BAR ()=2 

detailva="NO" 

vttlva="uto" 

DEACTIVATE  POPUP 
CASE  BAR ()=3 

detailva="NO" 

vttlva="to" 

DEACTIVATE  POPUP 
CASE  BAR ()=4 

detailva="NO" 

vttlva="o" 


DEACTIVATE  POPUP 
ENDCASE 
CLEAR 

*  BAR  1  OF  deta_pop  PROMPT  "LIN  by  LIN  Detail" 

*  i 


*  ! 
*  ! 


Procedure:  DETA  BARI 


PROCEDURE  deta_barl 
@9,1  CLEAR  TO  16,79 

e  9,1 


♦ 
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TEXT 

Consumption  data  is  printed  for  each  equipment  LIN,  including  fuel 
type,  fuel  tank  capacity,  gallons  consumed,  and  weight  of  fuel 
consumed.  Unit,  Task  Organization,  and  Order  summaries  follow  LIN  by 
LIN  detail.  A  seperate  listing  is  printed  for  each  Unit  if  there  are 
more  than  one  of  a  particular  Unit.  This  can  be  a  very  long  report, 
and  it  may  be  preferred  to  print  it  to  a  file  for  use  with  a  word 
processor. 

ENDTEXT 

RETURN 

*  DEFINE  BAR  2  OF  deta_pop  PROMPT  "Summary  Report  -  Unit,  Task  Org,  and  Order 
Totals" 

★  (  ★  *★*★★*★  +  ★**★***+******•*■******  ******************+-*.**********★***+*.*.** 

★  ! 

*!  Procedure:  DETA_BAR2 

* !  “ 

★i********************************************************************* 

PROCEDURE  deta_bar2 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Consumption  data  is  printed  for  each  fuel  type,  including  gallons 
consumed,  fuel  tank  capacity,  and  weight  of  fuel  consumed  by  Unit,  Task 
Organization,  and  Order. 

ENDTEXT 

RETURN 

*  DEFINE  BAR  3  OF  deta_pop  PROMPT  "Summary  Report  -  Task  Org  and  Order  Totals 
Only" 

*  I *  +  ***  +  ******+*  +  *************+*******+********+****+**++*+**  +  ********* 

*  ! 

*!  Procedure:  DETA_BAR3 

★  ! 

+I*************************-******************************************** 

PROCEDURE  deta_bar3 
@9,1  CLEAR  TO  16,79 
@  9,1 
TEXT 

Consumption  data  is  printed  for  each  fuel  type,  including  gallons 
consumed,  fuel  tank  capacity,  and  weight  of  fuel  consumed  by  Task 
Organization,  and  Order. 

ENDTEXT 

RETURN 

♦DEFINE  BAR  4  OF  deta_pop  PROMPT  "Summary  Report  -  Order  Totals  Only" 

★  J  *★*★★**★*★★  +  ★*★  +  **★***  +  +  +  ★★  +  *★★*★  +  ★*★*★*★★***★★★★  +  **★*  +  *★*★★★  +  ★★-*■★★** 

*  ! 

*!  Procedure:  DETA_BAR4 

★  I 

★I********************************************************************* 

PROCEDURE  deta_bar4 
@9,1  CLEAR  TO  16,79 
8  9,1 
TEXT 

Consumption  data  is  printed  for  each  fuel  type,  including  gallons 
consumed,  fuel  tank  capacity,  and  weight  of  fuel  consumed  by  the  Order. 
ENDTEXT 


RETURN 


*  BAR  1  OF  prin_pop  PROMPT  "Print  Estimate  to  Printer" 
*!***★***+*********★*★****★************************★+★★+++**+***+**★+★* 

★ ! 

* !  Procedure:  PRIN  BARI 

*  ! 

+  1*  +  **********  +  **********  +  *  ++*****  +  *******.*.****.*.*.*.***.*..*..******.*.**.^.^.^^.^^ 

PROCEDURE  prin_barl 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

Make  sure  printer  is  on  and  on-line. 

ENDTEXT 

RETURN 

*  BAR  2  OF  prin_pop  PROMPT  "Print  Estimate  to  Screen" 

*  t 

*!  Procedure:  PRIN  BAR2 

* !  — 

■*  i*********************************************^***********-************ 

PROCEDURE  prin_bar2 

@9,1  CLEAR  TO  16,79 

@9,1 

TEXT 

Prints  Reports  to  the  Screen.  These  estimates  can  take  a  long  time 
to  view  this  way.  It  may  be  preferred  to  print  to  a  file  and  then 
view  the  file  with  a  work  processor. 

ENDTEXT 


RETURN 

*  BAR  3  OF  prin_pop  PROMPT  "Print  Estimate  to  ASCII  File" 

*  ! 

* !  Procedure:  PRIN  BAR3 

★  I 

*  \  ********************************************************************** 
PROCEDURE  prin_bar3 

@9,1  CLEAR  TO  16,79 

@  9,1 

TEXT 

ASCII  files  can  be  viewed  and  edited  with  most  word  processors,  or 
with  EDIT  if  you  are  using  a  version  of  DOS  5.0  or  higher. 

ENDTEXT 


RETURN 


* 

★ 


BAR  4  OF  prin_pop  PROMPT  "Change  Printer  Defaults" 


*  t 


* ! 
*  ! 


Procedure:  PRIN  BAR 4 


*i******  +  *  +  +  ***  +  +  ***  +  **  +  **  +  **  +  +  +  +  i#Jr> 

PROCEDURE  prin_bar4 
@9,1  CLEAR  TO~ 1 6,79 
@  9,1 


TEXT 


Change  printer  page  length  and  left  margin. 
ENDTEXT 


RETURN 

*  BAR  5  OF  prin_pop  PROMPT  "Return  to  Previous  Menu" 
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*  l 

* !  Procedure:  PRIN_BAR5 

★  t 

+  t  ★  +  +  +  ★  + 

PROCEDURE  prin_bar5 
@  9, 1  CLEAR  TO  16, 79 
@9,1 
TEXT 

ENDTEXT 

RETURN 

*:  EOF:  PRINTPOL . PRG 


* 
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-Ar 


■k 


★ 


Program:  D:\SURE\PRNSETUP.PRG 


Called  by:  UTIL_PRO 
:  PRIN_PRO 
:  SYSR  PRO 


(procedure  in  SURE.PRG) 
(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 


★ 


Memory  Files:  VARIABLE. MEM 


•if 

■k 


Documented  04/16/94  at  11:02 


SNAP!  version  5.00 


ACTIVATE  WINDOW  small 
0  0,1  SAY  "Left  Margin 

0  ROW (), COL()  GET  varlmarg  PICTURE  "99" 

IF  vprintvao"  " 

0  ROW ( ) ,  COL ( )  SAY  "  Printer:  "+vprintva 
ENDIF  (vprintvao"  ") 

0  2,1  SAY  "Lines  per  Page  " 

0  ROW (), COL()  GET  varpagel  PICTURE  "999" 
READ 

SET  MARGIN  TO  varlmarg 
SAVE  TO  variable  ALL  LIKE  v* 

0  3,1 
WAIT 

DEACTIVATE  WINDOW  small 
RETURN 

*:  EOF:  PRNSETUP.PRG 


W 
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Procedure  file:  D:\SURE\PRNTHELP.PRG 


Procs  &  Fncts 


PHEL_PRO 

PRNONEH 

PRNALLH 

ENDPHEL 

BROWHELP 


Set  by:  HELP_PRO 
Calls:  PHEL  PRO 


(procedure  in  SURE.PRG) 
(procedure  in  PRNTHELP . PRG) 


Documented  04/16/94  at  11:02  SNAP!  version  5.00 


CLEAR 

STORE  0  TO  timelvar 
STORE  2  TO  time2var 
SET  PROCEDURE  TO  instphlp 
SET  MEMOWIDTH  TO  75-varlmarg 
SET  MARGIN  TO  varlmarg 
SELECT  39 

SET  ORDER  TO  subject 
GO  TOP 

DEFINE  POPUP  phel_pop  FROM  1,5 

DEFINE  BAR  1  OF  phel_pop  PROMPT  "Print  One  Help  Subject" 

DEFINE  BAR  2  OF  phel_pop  PROMPT  "Print  All  Help  Subjects" 

DEFINE  BAR  3  OF  phel_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  phel_pop  DO  phel_pro 
ON  BAR  1  OF  phel_pop  DO  phel_barl 
ON  BAR  2  OF  phel_pop  DO  phel_bar2 
ON  BAR  3  OF  phel_pop  DO  phel_bar3 
DO  WHILE  PROMPT () <>"Return  to  Main  Menu" 

ACTIVATE  POPUP  phel_pop 
ENDDO  (PROMPT () <>"Return  to  Main  Menu") 

CLEAR 

RETURN 


★  1 
*  ! 

★  j 

Procedure: 

PHEL_PRO 

*  ! 

★  i 

Called  by: 

PRNTHELP. PRG 

★  j 

Calls : 

PRNONEH 

(procedure 

in 

PRNTHELP. PRG) 

* ! 

: 

PRNALLH 

(procedure 

in 

PRNTHELP. PRG) 

* ! 

*  f 

2 

ENDPHEL 

(procedure 

in 

PRNTHELP. PRG) 

** *++**★★★★**★★+++★**★★**★★*****+***★★****★*****★★+★★*★★+★****++**★**** 
PROCEDURE  phel_pro 
DO  CASE 
CASE  BAR  ()=1 
DO  prnoneh 
CASE  BAR  ()=2 
DO  prnallh 
CASE  BAR ()=3 
DO  endphel 
ENDCASE 


Procedure:  PRNONEH 


★  r 
+  ! 

* '  Called  by:  PHEL  PRO  (procedure  in  PRNTHELP . PRG) 

★  f 

*!  Calls:  BROWHELP  (procedure  in  PRNTHELP . PRG) 

*!  :  PRNTMEMO . PRG 

+  I 

PROCEDURE  prnoneh 
SET  ORDER  TO  subject 
DO  browhelp 
_PL£NGTH=varpagel 
_PLOFFSET=varlmarg 
ACTIVATE  WINDOW  process 
_WRAP= . T . 

SET  PRINT  ON 
PRINTJOB 

SET  DEVICE  TO  PRINT 
DO  prntmemo 
ENDPRINTJOB 
SET  PRINT  OFF 
_WRAP=.F. 

SET  DEVICE  TO  SCREEN 
DEACTIVATE  WINDOW  process 


*  ! 

★  t 

+  ! 

Procedure : 

PRNALLH 

*  ! 

*  ! 

Called  by: 

PHEL_PRO 

(procedure  in  PRNTHELP . PRG) 

★  ! 

★  f 

Calls : 

PRNTMEMO . PRG 

PROCEDURE  prnallh 
SET  ORDER  TO  subject 
STORE  .  T.  TO  stopvar 
GO  TOP 

@  22,5  SAY  "Press  ESC  to  STOP  printing  after  current  subject!" 

_P  LENGTH= va  rp  a  g  e 1 

_PLOFFSET=varlmarg 

_WRAP=.T. 

SET  PRINT  ON 
PRINTJOB 

SET  ESCAPE  OFF 
SET  DEVICE  TO  PRINT 
ACTIVATE  WINDOW  process 
DO  WHILE  .NOT.  EOF ( ) 

DO  prntmemo 
SKIP 

timelvar=VAL ( SUBSTR (TIME ( ) ,7,2) ) 

*  This  looks  strange,  but  for  some  reason  dBase  gets  confused 

*  and  does  not  always  leave  the  do  loop.  The  countvar  routine 

*  forces  an  exit  to  the  loop  if  the  time*var  routine  does  not 
countvar=0 

DO  WHILE  .T. 

I  =  INKEY () 

IF  1=27 

stopvar=. F. 

EXIT 

ENDIF  (1=27) 


* 


4 


time2var=VAL ( SUBSTR (TIME  0,7,2)) 

IF  time2var=>timelvar+3  .OR.  countvar=IOOO 

EXIT 

ENDIF  ( time2var=>timelvar+3  .OR.  countvar=1000) 
countvar=countvar+l 


ENDDO  (.T.) 

IF  stopvar  =  .F. 

EXIT 

ENDIF  (stopvar  =  .F.) 
ENDDO  (.NOT.  EOF ( ) ) 
ENDPRINTJOB 
SET  PRINT  OFF 
SET  ESCAPE  ON 


_WRAP=.F. 

SET  DEVICE  TO  SCREEN 
GO  TOP 

DEACTIVATE  WINDOW  process 
CLEAR 

*!************-*****************-*-****-*****-***********•**-***-**********--**** 
*  ! 

*!  Procedure:  ENDPHEL 

★  | 

*!  Called  by:  PHEL_PRO  (procedure  in  PRNTHELP . PRG) 

★  | 

★  j  *★★★*★★★★★***★★★*******★*+**★***+*★★★*★***+*★*■*■★*■*■★★  +  ******  +  +  *★****** 

PROCEDURE  endphel 
GO  TOP 

DEACTIVATE  POPUP 
RETURN 


*  Browse  Help 

*  ! 


★  t 

*  ! 

Procedure: 

BROWHELP 

★  i 

*  i 

Called  by: 

PRNONEH 

*  i 

Calls : 

SETBROWS. PRG 

★  j 

★  i 

: 

ENDBROWS . PRG 

(procedure  in  PRNTHELP. PRG) 


PROCEDURE  browhelp 
ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  NOMENU  NOAPPEND  NODELETE  NOEDIT  FIELDS  help->subject 
DO  endbrows 

DEACTIVATE  WINDOW  browser 
SET  ORDER  TO  PROGRAM 
RETURN 


*:  EOF:  PRNTHELP. PRG 
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Program:  D:\SURE\PRNTMEMO.PRG 


Called  by:  PRNONEH 
:  PRNALLH 


(procedure  in  PRNTHELP . PRG) 
(procedure  in  PRNTHELP . PRG) 


Documented  04/16/94  at  11:02  SNAP!  version  5.00 

+  +  *  +  *  +  +  *  +  +  *  +  +  +  +  ^  +  +  +  +  ^  +  +  +  +  +  +  +  +  +  +  +  +  +  + 


PRIVATE  cmemo ,  numlines, natrow 
numlines  =  MEMLINES (MENU) 

IF  numlinesoO 


IF  PROW ( ) >varpagel- (numlines+5) 

EJECT 

ENDIF  (PROW ( ) >varpagel- (numlines+5) ) 
natline=l 
?  subject 
o 

DO  WHILE  natline<=numlines 
?  MLINE (MENU, natline) 
natline=natline+l 
IF  PROW ( ) >varpagel-5 


?  "Page  "+TRANSFORM (_PAGENO, "999") 
EJECT 

ENDIF  (PROW( ) >varpagel-5) 

ENDDO  (natline<=numlines ) 

ENDIF  (numlinesoO) 
numlines  =  MEMLINES (notes ) 

IF  numlines=0 
RETURN 

ENDIF  (numlines=0) 
natline=2 

DO  WHILE  natline<=numlines 
?  MLINE (notes, natline) 
natline=natline+l 
IF  PROW ( ) >varpagel-5 

7 

?  "Page  "+TRANSFORM (_PAGENO, "999") 
EJECT 

ENDIF  (PROW ( ) >varpagel-5) 

ENDDO  (natline<=numlines) 

RETURN 


*:  EOF:  PRNTMEMO . PRG 


* 


* 


* 
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Program:  D:\SURE\REINDX.PRG 


Called  by:  UTIL_PRO 


(procedure  in  SURE.PRG) 


Uses 


Indexes 


HELP. DBF 
CSRCLIST . DBF 
SRCLIST . DBF 
SRCLINQT .  DBF 
CSRCLINQ . DBF 
ECHELONS . DBF 
LINLIST . DBF 
AMMORATE . DBF 
POLRATE . DBF 
TASKORG. DBF 
ORDERTAS . DBF 
MEDICAL. DBF 
WATER. DBF 
CLASS_I . DBF 
PROFILES. DBF 
CPROFILE . DBF 
ORDERLST . DBF 
POLWGT . DBF 
DODIC. DBF 
POLEST. DBF 
AMMOEST . DBF 
CL  OTHER. DBF 


PROGRAM 

(tag 

in 

HELP .MDX) 

SUBJECT 

(tag 

in 

HELP.MDX) 

SRC 

(tag 

in 

CSRCLIST. MDX) 

UNIT  DESIG 

(tag 

in 

CSRCLIST. MDX) 

STRENGTH 

(tag 

in 

CSRCLIST. MDX) 

UNITNAME 

(tag 

in 

CSRCLIST. MDX) 

ECHELON 

(tag 

in 

CSRCLIST. MDX) 

LIN 

(tag 

in 

SRCLINQT. MDX) 

UNIQUELI 

(tag 

in 

SRCLINQT. MDX) 

DODIC 

(tag 

in 

AMMORATE. MDX) 

POL  TYPE 

(tag 

in 

POLRATE. MDX) 

TASKORGNAM 

(tag 

in 

TASKORG. MDX) 

UNIQUEUN 

(tag 

in 

TASKORG. MDX) 

UNIQUETA 

(tag 

in 

TASKORG. MDX) 

NUMBER 

(tag 

in 

ORDERTAS. MDX) 

TASKPHAS 

(tag 

in 

ORDERTAS. MDX) 

PROFILENAM 

(tag 

in 

ORDERTAS. MDX) 

TASKPHASE 

(tag 

in 

ORDERTAS. MDX) 

UNIQUENU 

(tag 

in 

ORDERTAS. MDX) 

PHASE 

(tag 

in 

ORDERTAS. MDX) 

UNIQUETN 

(tag 

in 

ORDERTAS .MDX) 

PHASETAS 

(tag 

in 

ORDERTAS. MDX) 

MED  NAME 

(tag 

in 

MEDICAL. MDX) 

WATER  NAME 

(tag 

in 

WATER. MDX) 

RATION 

(tag 

in 

CLASS  I. MDX) 

PROFILE 

(tag 

in 

PROFILES. MDX) 

INTENSITY 

(tag 

in 

CPROFILE. MDX) 

PROFILEDES 

(tag 

in 

CPROFILE. MDX) 

POSTURE 

(tag 

in 

CPROFILE. MDX) 

CDE 

(tag 

in 

CPROFILE. MDX) 

NAME 

(tag 

in 

ORDERLST. MDX) 

:  DESCRIPTIO 
PARENT_UNI 
:  UNITDODI 


k 

k 

•k 

k 

k 

k 

k 

k 


k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


MDX  files:  HELP.MDX 

:  CSRCLIST.MDX 
:  SRCLIST.MDX 
:  SRCLINQT . MDX 
:  CSRCLINQ . MDX 
:  ECHELONS. MDX 
:  LINLIST.MDX 
:  AMMO RATE. MDX 
:  POLRATE.MDX 
:  TASKORG.MDX 
:  ORDERTAS . MDX 
:  MEDICAL. MDX 
:  WATER. MDX 
:  CLASS_I .MDX 
:  PROFILES. MDX 
:  CPROFILE.MDX 
:  ORDERLST . MDX 
:  POLWGT . MDX 
:  DODIC.MDX 
:  POLEST.MDX 
:  AMMOEST .  MDX 
:  CL  OTHER. MDX 


(tag  in  ORDERLST. MDX) 
(tag  in  POLEST.MDX) 
(tag  in  AMMOEST. MDX) 


★ 

k 


Documented  04/16/94  at  11:02 
+  ************  +  ***  +  ****  +  *****.*********.****  +  ******* 


SNAP!  version  5.00 

kkkkkkkkkkkkkkkkkkkk 


*  REINDX.PRG  Reindexs  dbf's 
STORE  PROGRAM()  TO  progvar 
STORE  "NO  "  TO  yesnovar 
ACTIVATE  WINDOW  process 
TEXT 


This  will  recreate  all  indexes  used  by  SURE.  It  is  not  normally 
needed,  as  SURE’s  compiled  dBase  2.0  system  should  automatically 
prompt  you  if  it  needs  to  repair  an  index.  However,  if  your  .MDX 
index  files  should  become  deleted  and  you  do  not  have  a  current 
backup,  this  will  recreate  the  .MDX  index  files. 


ENDTEXT 

@  ROW ( ) ,  COLO  SAY  "Do  you  wish  to  reindex?  (NO/YES)  "  GET  yesnovar; 
PICTURE  "!!!"  VALID  yesnovar="NO  "  .OR.  yesnovar="YES"  ERROR; 
"Must  be  NO  or  YES" 

READ 

IF  yesnovar<>"YES" 

DEACTIVATE  WINDOW  process 
RETURN 


HINDI F  (yesnovar<>"YES") 

SET  TALK  ON 

USE  HELP 

INDEX  ON  PROGRAM  TAG  PROGRAM 

&& 

(PROGRAM) 

INDEX  ON  subject  TAG  subject 

&& 

(SUBJECT) 

USE  csrclist 

INDEX  ON  src  TAG  src 

INDEX  ON  unit_desig  TAG  unit  desig 

&& 

(UNIT  DESIG) 

INDEX  ON  strength  TAG  strength 

&& 

(STRENGTH) 

INDEX  ON  unitname  TAG  unitname 

&& 

(UNITNAME) 

Hk 


* 


INDEX  ON  echelon  TAG  echelon 

USE  srclist 

&& 

(ECHELON) 

INDEX  ON  src  TAG  src 

&& 

(SRC) 

INDEX  ON  unit  desig  TAG  unit  desig 

USE  srclinqt 

&& 

(UNIT_DESIG 

INDEX  ON  src  TAG  src 

&& 

(SRC) 

INDEX  ON  lin  TAG  lin 

&& 

(LIN) 

INDEX  ON  lin  UNIQUE  TAG  uniqueli 

USE  csrclinq 

&& 

(LIN) 

INDEX  ON  src  TAG  src 

&& 

(SRC) 

INDEX  ON  lin  TAG  lin 

&& 

(LIN) 

INDEX  ON  unitname  TAG  unitname 

USE  echelons 

&& 

(UNITNAME) 

INDEX  ON  echelon  TAG  echelon 

&& 

(ECHELON) 

USE  linlist 

INDEX  ON  lin  TAG  lin 

USE  ammorate 


&&  (LIN) 


INDEX  ON  lin  TAG  lin 

INDEX  ON  dodic  TAG  dodic 

USE  polrate 

INDEX  ON  lin  TAG  lin 

INDEX  ON  pol_type  TAG  pol_type 

USE  taskorg 

INDEX  ON  taskorgnam  TAG  taskorgnam 
INDEX  ON  unitname  TAG  unitname 
INDEX  ON  unitname  UNIQUE  TAG  uniqueun 
INDEX  ON  taskorgnam  UNIQUE  TAG  uniqueta 
INDEX  ON  src  TAG  src 
USE  ordertas 

INDEX  ON  NUMBER  TAG  NUMBER 

INDEX  ON  taskorgnam  TAG  taskorgnam 

INDEX  ON  taskorgnam+STR (phase)  TAG  taskphas 

INDEX  ON  profilenam  TAG  profilenam 

INDEX  ON  taskorgnam+STR (phase)  TAG  taskphase 

INDEX  ON  NUMBER  UNIQUE  TAG  uniquenu 

INDEX  ON  taskorgnam  UNIQUE  TAG  uniqueta 

INDEX  ON  phase  TAG  phase 

INDEX  ON  taskorgnam+NUMBER  TAG  uniquetn 

INDEX  ON  STR (phase) ttaskorgnam  TAG  phasetas 

USE  medical 

INDEX  ON  med_name  TAG  med_name 
INDEX  ON  echelon  TAG  echelon 
USE  water 

INDEX  ON  echelon  TAG  echelon 
INDEX  ON  water_name  TAG  water_name 
USE  class_i 

INDEX  ON  ration  TAG  ration 
USE  profiles 

INDEX  ON  profile  TAG  profile 
USE  cprofile 

INDEX  ON  profile  TAG  profile 
INDEX  ON  INTENSITY  TAG  INTENSITY 
INDEX  ON  profilenam  TAG  profilenam 
INDEX  ON  profiledes  TAG  profiledes 
INDEX  ON  posture  TAG  posture 
INDEX  ON  med_name  TAG  med_name 
INDEX  ON  water_name  TAG  water_name 
INDEX  ON  cde  TAG  cde 
USE  orderlst 

INDEX  ON  NUMBER  TAG  NUMBER 


&&  (LIN) 

&&  (DODIC) 

&&  (LIN) 

&&  (POL_TYPE) 

&&  (TASKORGNAM) 

&&  (UNITNAME) 

&&  (UNITNAME) 

&&  (TASKORGNAM) 

&&  (SRC) 

&&  (NUMBER) 

&&  (TASKORGNAM) 

&&  (TASKORGNAM+STR ( (PHASE) ) 
&&  (PROFILENAM) 

&&  (TASKORGNAM+STR ( (PHASE) ) 
&&  (NUMBER) 

&&  (TASKORGNAM) 

&&  (PHASE) 

&&  (TASKORGNAM+NUMBER) 

&&  (STR( (PHASE) +TASKORGNAM) 

£&  ( MED_NAME ) 

&&  (ECHELON) 

&&  (ECHELON) 

&&  (WATER_NAME) 

&&  (RATION) 

&&  (PROFILE) 

&&  (PROFILE) 

&&  (INTENSITY) 

&&  (PROFILENAM) 

&&  (PROFILEDES) 

&&  (POSTURE) 

&&  (MED_NAME) 

&&  ( WAT E R_NAME ) 

&&  (CDE) 

&&  (NUMBER) 


321 


INDEX  ON  name  TAG  name 

INDEX  ON  descriptio  TAG  descriptio 

USE  polwgt 

INDEX  ON  poi_type  TAG  pol  type 
USE  dodic 

INDEX  ON  dodic  TAG  dodic 
USE  polest 

INDEX  ON  NUMBER  TAG  NUMBER 

INDEX  ON  unitname  TAG  unitname 

INDEX  ON  taskorgnam  TAG  taskorgnam 

INDEX  ON  lin  TAG  lin 

INDEX  ON  pol_type  TAG  pol_type 

INDEX  ON  parent_uni  TAG  parent_uni 

USE  ammoest 

INDEX  ON  NUMBER  TAG  NUMBER 
INDEX  ON  unitname  TAG  unitname 
INDEX  ON  taskorgnam  TAG  taskorgnam 
INDEX  ON  dodic  TAG  dodic 
INDEX  ON  lin  TAG  lin 

INDEX  ON  unitname+lin+dodic  TAG  unitdodi 
USE  cl_other 

INDEX  ON  unitname  TAG  unitname 
INDEX  ON  taskorgnam  TAG  taskorgnam 
INDEX  ON  profilenam  TAG  profilenam 
SET  TALK  OFF 
?  CHR ( 7 ) 
o 

WAIT  "All  done!  Press  any  key..." 
DEACTIVATE  WINDOW  process 
RETURN 

*:  EOF:  REINDX.PRG 


65  ( NAME ) 

66  (DESCRIPTIO) 

&&  (POL_TYPE) 

&&  (DODIC) 

£&  (NUMBER) 

&&  (UNITNAME) 

&&  (TASKORGNAM) 

65  (LIN) 

66  ( POL_TYPE) 

&&  (PARENTJJNI) 

&&  (NUMBER) 

&&  (UNITNAME) 

&&  (TASKORGNAM) 

&&  (DODIC) 

&&  (LIN) 

&&  (UNITNAME+DODIC) 

&&  (UNITNAME) 

&&  (TASKORGNAM) 

&4  (PROFILENAM) 


0 


4 


4 
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Procedure  file:  D:\SURE\RESTOREF.PRG 

Procs  &  Fncts:  RESTORE 
:  GETSTATU 


Set  by:  UTIL_PRO 
Calls:  RESTORE 


(procedure  in  SURE.PRG) 
(procedure  in  RESTOREF. PRG) 


Documented  04/16/94  at  11:02  SNAP!  version  5.00 

+  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  +  +  +  ±  +  +  +  +  +  +  +  +  +  +  + 


*  restoref.prg 

STORE  SPACE (8)  TO  filevar 

STORE  SPACE (8)  TO  filevar2 

STORE  "  "  TO  abortvar 

STORE  "  "  TO  diskvar 

STORE  "NO  "  TO  yesnovar 

STORE  HOME ( ) +S  PACE (10)  TO  homevar 

ACTIVATE  WINDOW  huge 

TEXT 

This  will  copy  the  SURE  files  from  a  previous  Backup  from  your 
floppy  drive  to  the  hard  drive.  It  will  OVERWRITE  your  current  files! 

If  you  do  this  you  will  NOT  be  able  to  get  them  back!  Restore  is  useful 
when: 

1.  You  have  done  a  lot  of  entries  which  have  to  be  reversed,  and 
Restoring  from  your  last  backup  is  faster  than  making  changes. 


2.  You  are  copying  all  of  your  data  from  one  SURE  system  to  another. 
For  example,  you  might  use  one  system  in  the  office,  another  in 
the  field. 


It  is  HIGHLY  recommended  that  you  do  a  seperate  backup  of  your  current 
SURE  files  first! 


ENDTEXT 

@  ROW ( ) ,  COL()  SAY  "Do  you  want  to  continue  to  Restore?  (NO/YES)  " 

@  ROW ( ) ,  COL()  GET  yesnovar  PICTURE  " ! ! ! "  VALID  yesnovar="NO"  .OR. 
yesnovar="YES"; 

ERROR  "Must  be  NO  or  YES" 

READ 

IF  yesnovaro"YES" 

DEACTIVATE  WINDOW  huge 
RETURN 

ENDIF  (yesnovaro"YES") 

CLEAR 

TEXT 

Sure  thinks  that  your  SURE  system  is  in  the  following  drive  and  directory. 
If  you  are  sure  that  they  are  wrong,  change  them  at  this  time,  or  Return 
to  continue  with  the  Restore  process. 


ENDTEXT 

@  ROW ( ) ,  COL ( )  GET  homevar 
READ 

homevar=RTRIM (homevar ) 
ACTIVATE  WINDOW  small 


@  1,1  SAY  "Enter  disk  drive  to  Restore  from 
@  2,1  SAY  "Return  to  Quit:  " 

@  ROW ( ) ,  COLO  GET  diskvar 
READ 

IF  diskvar="  " 

DEACTIVATE  WINDOW  small 
RETURN 

ENDIF  (diskvar="  ") 

DEACTIVATE  WINDOW  small 
CLEAR 

@1,2  SAY  "Please  wait,  restoring..." 
diskvar=diskvar+" :  \ " 

?  homevar 

SET  MESSAGE  TO  "Restore  from  Floppy  Disk" 
filevar=diskvar+"CSRCLIST . DBF" 
f ilevar2=homevar+"CSRCLIST . DBF" 

DO  RESTORE 

filevar=diskvar+"CSRCLINQ. DBF" 
f ilevar2=homevar+"CSRCLINQ . DBF" 

DO  RESTORE 

filevar=diskvar+"TASKORG. DBF" 
filevar2=homevar+"TASKORG. DBF" 

DO  RESTORE 

f ilevar=diskvar+"ORDERTAS . DBF” 
filevar2=homevar+"ORDERTAS . DBF" 

DO  RESTORE 

filevar=diskvar+" PROFILES . DBF" 
f ilevar2=homevar+"PROFILES . DBF" 

DO  RESTORE 

filevar=diskvar+"INTENSTY. DBF" 
filevar2=homevar+"INTENSTY. DBF" 

DO  RESTORE 

filevar=diskvar+"CPROFILE. DBF" 
f ilevar2=homevar+"CPROFILE .DBF" 

DO  RESTORE 

f ilevar=diskvar+”ORDERLST . DBF" 
f ilevar2=homevar+"ORDERLST . DBF" 

DO  RESTORE 

f i 1 e va  r=di skvar+"CSRCLIST. MDX " 
filevar2=homevar+"CSRCLIST .MDX" 

DO  RESTORE 

filevar=diskvar+"CSRCLINQ.MDX" 

filevar2=homevar+"CSRCLINQ.MDX" 

DO  RESTORE 

f i leva  r=di s  kva  r + "TAS  KORG . MDX " 
filevar2=h  ome var+" T AS  KO RG . MDX " 

DO  RESTORE 

f i 1 e va  r=di s  k va  r + " ORDERTAS . MDX " 
filevar2=homevar+"ORDERTAS .MDX" 

DO  RESTORE 

filevar=diskvar+" PROFILES .MDX" 
filevar2=homevar+"PROFILES .MDX" 

DO  RESTORE 

f il e va  r=di s  k va  r + " INTENST Y . MDX ” 
filevar2=homevar+"INTENSTY.MDX" 

DO  RESTORE 

filevar=diskvar+"ORDERLST .MDX " 
filevar2=homevar+"ORDERLST.MDX" 

DO  RESTORE 

DEACTIVATE  WINDOW  huge 


t 


RETURN 

★  \k-kkk  +  k-k-k-k'kk+r-ir-ie-k-kk-k-kk'k-k-k-k-k-k-k-k-k-kk-/r-k'ir-kk'k-k'k-irk'k-k-k'k-kk-k-k-ir-kk-k-k-k-k'k-kk-k-k*'k'k-k-kk-kk 

*  | 

Procedure:  RESTORE 


*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 
*  ! 


Called  by:  RESTOREF. PRG 

Calls:  GETSTATU 

Uses:  & FILEVAR. DBF 
:  &FILEVAR2 . DBF 


(procedure  in  RESTOREF. PRG) 


PROCEDURE  RESTORE 
DO  WHILE  .T. 

@3,2  SAY  " 

@3,2  SAY  filevar 
IF  FILE (filevar) 

COPY  FILE  &f ilevar  TO  &filevar2 
EXIT 
ELSE 

DO  getstatu 
DO  CASE 

CASE  yesnovar="T" 

LOOP 

CASE  yesnovar="C" 

EXIT 

CASE  yesnovar="Q" 

♦DEACTIVATE  WINDOW  process 
DEACTIVATE  WINDOW  huge 
SET  PROCEDURE  TO  INSTRUCT 
RETURN  TO  sure 
ENDCASE 

DEACTIVATE  WINDOW  process 
ENDIF  ( FILE ( filevar ) ) 

ENDDO  (.T.) 

■k  ^kr-kk-kk-k-k-k-k'k-k-k-ir-k-k-ir-k-k'k'k-k^r-kir-k'k-k-k-k-k-k-k-k-k-k-kir'k-k-k-k-k-k'k-k-k-k-k-k-kk’kk-k-k-kk-k-k-ie'kJc-k-kir-k-ir-k-k 
*  ! 

*!  Procedure:  GETSTATU 

★  ! 

*!  Called  by:  RESTORE  (procedure  in  RESTOREF. PRG) 

★  i 

■*(*****•**■+***+***+*+***++*******.***+**■*■*++■**+********+***+**++*+■*.**+■*** 


PROCEDURE  getstatu 
yesnovar="  " 

?  CHR ( 7 ) 

CLEAR 

♦ACTIVATE  WINDOW  process 
@1,1  SAY  filevar 
TEXT 

NOT  FOUND!  If  you  have  it  on  another  disk,  change  disks  at  this  time 
and  enter  T  to  Try  Again.  If  you  want  to  skip  this  file,  enter  C  to 
Continue.  If  you  want  to  stop  the  Restore  process,  enter  Q  to  Quit. 


ENDTEXT 

@  ROW ( ) ,  COLO  SAY  "T/C/Q  ?  "  GET  yesnovar  PICTURE  " ! "  VALID  yesnovar="T”  .OR. 
yesnovar= "C"  .OR.  yesnovar="Q"  ERROR  "Must  be  T,  C  or  Q" 

READ 

CLEAR 
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EOF:  RESTOREF. PRG 


★ 


* 

Program: 

D:\SURE\SETBROW2. 

PRG 

Called  by: 

VTEWTASK 

(procedure 

in 

EDITTASK. PRG) 

★ 

VIEWTAS2 

(procedure 

in 

EDITTASK. PRG) 

•k 

PHASEBYS 

(procedure 

in 

EDITORDE. PRG) 

•k 

Documented 

04/16/94  at  11:02 

SNAP!  version 

■k 

•k-k-k-k-k-k-k'k-k-k-k-k’k-k-k-k'k-k-k-k-k-k-kk'k-k-k-k-kkk-k-k-k-k'k-k'k'kk-k-k-k-k-k-k'k-k-kk 

ON  KEY  LABEL  HOME  KEYBOARD  CHR(31) 

ON  KEY  LABEL  end  KEYBOARD  CHR(30) 

SET  MESSAGE  TO  "  or  to  move.  Home  for  first  record.  End  for  last,  Ctrl-W  when 
Done" 

*:  EOF:  SETBROW2.PRG 


* 


t 
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★ 


★ 


★ 


Program:  D:\3URE\SETBROWS . PRG 


★ 

★ 

■fr 

k 

■k 

k 


k 
k 
• k 
k 


k 
k 
■ k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 
k 


k 


k 

k 

k 

k 


Called  by:  HELPNDX . PRG 
:  EDITHELP . PRG 
:  COPYSRC 
:  COPYCSRC 
:  VIEWUNIT 
:  ADD DATA 
:  SELECTUNI 
:  SELECTUN2 
:  CHANGELI 
:  ADDLINCA 
:  DELLIN 
:  CHANGEEH 
:  FINDTA 
:  NEWPROFI 
:  VIEWPROF 
:  SELEPROF 
:  CHANGEAP 
:  CHANGEAC 
:  CHANGEI 
:  CHANGECI 
:  CHANGEH2 
:  CHANGEME 
:  SELECT PRO 
:  NEWCUSPR 
:  VIEWCUSP 
:  EDITCUSP 
:  DELCUSPR 
:  VIEWORDE 
:  1PROONE 
:  VIEWTOP 
:  FINDPRO 
:  GETORDER 
:  1STRONE 
:  VTEWSTR 
:  GET SRC 
:  BROWHELP 


(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  CREATETC . PRG) 
(procedure  in  CREATEPR. PRG) 
(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  DELPROF. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE . PRG) 
(procedure  in  SYSREP.PRG) 
(procedure  in  PRNTHELP . PRG) 


Documented  04/16/94  at  11:02  SNAP!  version  5.00 

*******  +  ***  +  +  +  *  +  +  +  +  *****  +  ***  +  *******.*>*  +  ***  +  **  +  +  1t**  +  +  +  +  +  +  +  +  +  Vrilr!t  +  ik.  +  +  +  ^ 


ON  KEY  LABEL  HOME  KEYBOARD  CHR(31) 

ON  KEY  LABEL  end  KEYBOARD  CHR(30) 

ON  KEY  LABEL  ctrl-m  KEYBOARD  CHR(23) 

SET  MESSAGE  TO  "  or  to  move.  Home  for  first  record.  End  for  last.  Enter 
Select" 

*:  EOF:  SETBROWS . PRG 


to 
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k 

k 

k 

k 

★ 

k 

k 

k 


Program: 
Called  by: 
Documented 


D: \SURE\SETCON . PRG 
SURE. PRG 

04/16/94  at  11:01 


SNAP!  version  5.00 


*  SETCON.prg 

*  SURE  'SET'  conditions  program. 

*  CALLED  BY:  SURE.prg 

*  CALLS: 

*  AUTHOR:  John  M.  Friedson 

*  COPYWRITE:  U.S.  Army 

*  Date  15  December  1993 

*  Set  program  conditions 
SET  CENTURY  ON 

SET  BELL  OFF 
SET  EXCLUSIVE  ON 
SET  SCOREBOARD  OFF 
SET  SAFETY  OFF 
SET  TALK  OFF 
RETURN 

*:  EOF:  SETCON.PRG 


* 
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k 

k 
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Program:  D :  \ SUREN, STARTHLP  . 

PRG 

Called  by:  SURE. PRG 

:  SRC  PRO 

(procedure 

in 

SURE. PRG) 

:  TASK  PRO 

(procedure 

in 

SURE. PRG) 

:  PROF  PRO 

(procedure 

in 

SURE. PRG) 

:  ORDE  PRO 

(procedure 

in 

SURE. PRG) 

:  REPO  PRO 

(procedure 

in 

SURE. PRG) 

:  UTIL  PRO 

(procedure 

in 

SURE. PRG) 

:  HELP  PRO 

(procedure 

in 

SURE. PRG) 

:  DELORDE. PRG 

:  STARTCSR 

(procedure 

in 

CREATESR. PRG) 

:  STARTUNI 

(procedure 

in 

EDITUNIT. PRG) 

:  STARTED 

(procedure 

in 

DELUNIT. PRG) 

:  STARTASK 

(procedure 

in 

CREATETA. PRG) 

:  STARTPRO 

(procedure 

in 

CREATEPR. PRG) 

:  STARTEPR 

(procedure 

in 

EDITPROF . PRG) 

:  STARTOR 

(procedure 

in 

CREATEOR. PRG) 

:  CALCPOL . PRG 

:  CALCAMMO . PRG 

:  CALCOTHE. PRG 

:  START SRP 

(procedure 

in 

SYSREP . PRG) 

:  STARTPLR 

(procedure 

in 

PRINTPOL. PRG) 

Calls:  HELP. PRG 

Uses:  HELP. DBF 

MDX  files:  HELP .MDX 

k 

k 


Documented  04/16/94  at  11:01 


SNAP!  version  5.00 


SELECT  39 

USE  HELP  ORDER  PROGRAM 
ON  KEY  LABEL  fl  DO  HELP 
RETURN 

*:  EOF:  STARTHLP . PRG 


* 


f 
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*.*******•************************************************************** 


Procedure  file:  D:\SURE\SURE.PRG 


Procs  &  Fncts 


DEF_MENS 

SRC_PRO 

TASK_PRO 

PROF_PRO 

ORDE_PRO 

REPO_PRO 

UTIL_PRO 

QUIT_PRO 

HELP_PRO 

HELP . PRG 
SETCON.PRG 
STARTHLP . PRG 
MEMVARS . PRG 
DEF  MENS 


Memory  Files:  VARIABLE. MEM 

Documented  04/16/94  at  11:01 


Calls 


(procedure  in  SURE. PRG) 


SNAP!  version  5.00 


*  SURE.prg  MAIN  SURE  SYSTEM  PROGRAM 

*  CALLED  BY: 

*  CALLS:  setcon.prg  memvars.prg  fileopen.prg 

*  AUTHOR:  John  M.  Friedson 

*  COPYWRITE:  U.S.  Army 

*  Date  15  December  1993 

*  Make  sure  insert  key  is  turned  on 
DO  setcon 

*  Public  Variables 

PUBLIC  numberva,  varlmarg,  varpagel,  progvar,  progvar2,  printvar 

PUBLIC  filevar 

STORE  SPACE (60)  TO  filevar 

RESTORE  FROM  variable  ADDITIVE 

STORE  "  "  TO  numberva 

STORE  SPACE (10)  TO  printvar 

IF  ISCOLORO 

SET  COLOR  TO  W+/B,B/W+ 

ENDIF  (ISCOLORO) 

CLEAR 

IF  vprintva="Laser" 

_PEJECT="AFTER" 

ELSE 

_PEJECT="NONE" 

ENDIF  (vprintva="Laser") 

SET  PROCEDURE  TO  instruct.prg 
DO  starthlp 

STORE  PROGRAM ()  TO  progvar2 
STORE  PROGRAM ()  TO  progvar 
LOAD  isinsert 
tempvar  =  "xM 

CALL  isinsert  WITH  tempvar 
*IF  tempvar<>"T" 

KEYBOARD  CHR(22) 

*ENDIF 

* DEFINE  universal  items 

DEFINE  WINDOW  browser  FROM  1,1  TO  15,77 
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DEFINE  WINDOW  editor  FROM  5,2  TO  22,77 
DEFINE  WINDOW  small  FROM  12,20  TO  18,60 
DEFINE  WINDOW  medium  FROM  1,1  TO  16,77 
DEFINE  WINDOW  huge  FROM  1,1  TO  23,77 
DEFINE  WINDOW  process  FROM  2,2  TO  14,77 

*  Initialize  memory  variables 
DO  memvars 

*  Display  Credits 
@  19,1  TO  19,77 

@  20,12  SAY  "SUPPLY  USAGE  REQUIREMENTS  ESTIMATOR  (SURE)  VERSION  2.0" 

@  21,12  SAY  "  This  is  WORK  IN  PROGRESS...  do  NOT  use  this  version!" 

@  22,0  SAY  "  Developed  by  CASCOM  and  the  School  for  Advanced  Military 

Studies" 

@  23,0  SAY  "Fl=Help  Major  John  M  Friedson,  QM  Programmer" 

*@  23,60  SAY  "Memory:  " 

*@  ROW (), COL()  SAY  LTRIM ( STR (MEMORY ( ) ) ) 

*  Open  database  files 

*  DO  openfile 

*  Define  Menu  Items 
DO  def_mens 

*  Assign  POPUPs  to  the  Pads 

ON  PAD  src  OF  main  ACTIVATE  POPUP  src_pop 
ON  PAD  task  OF  main  ACTIVATE  POPUP  task_pop 
ON  PAD  profiles  OF  main  ACTIVATE  POPUP  prof_pop 
ON  PAD  orders  OF  main  ACTIVATE  POPUP  orde_pop 
ON  PAD  reports  OF  main  ACTIVATE  POPUP  repo_pop 
ON  PAD  utility  OF  main  ACTIVATE  POPUP  util“p°P 
ON  PAD  QUIT  OF  main  ACTIVATE  POPUP  quit_pop 
ON  PAD  HELP  OF  main  ACTIVATE  POPUP  help_pop 
DO  WHILE  PROMPT ()<> "QUIT" 

ACTIVATE  MENU  main  PAD  src 
ENDDO  ( PROMPT ( ) <>"QUIT" ) 

CLEAR  ALL 
SET  TALK  ON 
RETURN 

*  Create  Main  menu  and  define  its  Pads 

+  ]+  +  +  +**  +  *  +  +  +  +  ■*'  +  **  +  +  +  *  +  +  +  +  +  +  +  +  +  *  +  +  +  +  +  +  +  *  +  +  **  +  +  +  +  +  +  +  +  +  *  +  +  +  +  *  +  +  +  +  *  +  *  +  +  +  +  * 

*  ! 


★  r 

*  ! 
★  ! 

★  l 
+ ! 

★  t 

★  I 

★  ! 
*  ! 
*  ! 

★  t 

*  ! 
★  f 


Procedure 

DEF_MENS 

Called  by 

SURE. PRG 

Calls 

SRC  PRO 

(procedure 

in 

SURE. PRG) 

TASK  PRO 

(procedure 

in 

SURE. PRG) 

PROF  PRO 

(procedure 

in 

SURE. PRG) 

ORDE  PRO 

(procedure 

in 

SURE. PRG) 

REPO  PRO 

(procedure 

in 

SURE. PRG) 

UTIL  PRO 

(procedure 

in 

SURE. PRG) 

HELP  PRO 

(procedure 

in 

SURE. PRG) 

QUIT  PRO 

(procedure 

in 

SURE. PRG) 

★ » ****+★+**★★★+★*★★★★++**★+**★★*****★*+★★*********+**************+*+*** 
PROCEDURE  defjmens 
DEFINE  MENU  main 

DEFINE  PAD  src  OF  main  PROMPT  "Units" 

DEFINE  PAD  task  OF  main  PROMPT  "Task  Organizations" 

DEFINE  PAD  profiles  OF  main  PROMPT  "Parameter  Sets" 

DEFINE  PAD  orders  OF  main  PROMPT  "Orders" 

DEFINE  PAD  reports  OF  main  PROMPT  "Reports" 

DEFINE  PAD  utility  OF  main  PROMPT  "Utilities" 


DEFINE  PAD  HELP  OF  main  PROMPT  "Help" 

DEFINE  PAD  QUIT  OF  main  PROMPT  "QUIT" 

*  Define  the  SRC  pad's  popup  and  bars 
DEFINE  POPUP  src_pop  FROM  1,0  MESSAGE  "Unit" 

DEFINE  BAR  1  OF  src_pop  PROMPT  "Create  Unit  from  SRC" 

DEFINE  BAR  2  OF  src_pop  PROMPT  "Edit  Unit" 

DEFINE  BAR  3  OF  src_pop  PROMPT  "Create  Custom  Unit  from  Equipment  LINs" 

DEFINE  BAR  5  OF  srcjpop  PROMPT  "Delete  Unit" 

ON  SELECTION  POPUP  src_pop  DO  src_pro 

*  ON  the  SRC  pad’s  bars 

ON  BAR  1  OF  src_pop  DO  surecsrl 
ON  BAR  2  OF  src_pop  DO  surecsr2 
ON  BAR  3  OF  src_pop  DO  surecsr3 
ON  BAR  5  OF  src_pop  DO  surecsr5 

*  Define  the  Task  pad's  popup  and  bars 

DEFINE  POPUP  task_p°p  FROM  1,6  MESSAGE  "Task  Organization" 

DEFINE  BAR  1  OF  taskjpop  PROMPT  "Create  Task  Organization  from  Units" 

DEFINE  BAR  2  OF  task_pop  PROMPT  "Create  Task  Organization  by  Copying  a  Previous 

One" 

DEFINE  BAR  3  OF  task_pop  PROMPT  "Edit  Task  Organization" 

DEFINE  BAR  5  OF  task_pop  PROMPT  "Delete  Task  Organization" 

ON  SELECTION  POPUP  task_pop  DO  task_pro 

*  ON  the  Task  pad's  bars 

ON  BAR  1  OF  task_pop  DO  suretasl 
ON  BAR  2  OF  task_pop  DO  suretas2 
ON  BAR  3  OF  task_pop  DO  suretas3 
ON  BAR  5  OF  task_pop  DO  suretasS 

*  Define  the  Parameter  Sets  pad's  popup  and  bars 

DEFINE  POPUP  prof_pop  FROM  1,25  MESSAGE  "Mission  Parameter  Sets" 

DEFINE  BAR  1  OF  profjpop  PROMPT  "Create  Mission  Parameter  Set" 

DEFINE  BAR  2  OF  prof_pop  PROMPT  "Edit  Mission  Parameter  Set" 

DEFINE  BAR  4  OF  prof_pop  PROMPT  "Delete  Mission  Parameter  Set" 

DEFINE  BAR  6  OF  prof_pop  PROMPT  "Custom  Area  Profiles" 

ON  SELECTION  POPUP  prof_pop  DO  prof_pro 

*  ON  the  Profiles  pad's  bars 

ON  BAR  1  OF  profjpop  DO  sureprol 
ON  BAR  2  OF  profjpop  DO  surepro2 
ON  BAR  4  OF  prof_pop  DO  surepro4 
ON  BAR  6  OF  prof_pop  DO  surepro6 

*  Define  the  Orders  pad's  popup  and  bars 
DEFINE  POPUP  ordejpop  FROM  1,40  MESSAGE  "Orders" 

DEFINE  BAR  1  OF  orde_pop  PROMPT  "Create  Order" 

DEFINE  BAR  2  OF  ordejpop  PROMPT  "Edit  Order" 

DEFINE  BAR  4  OF  ordejpop  PROMPT  "Delete  Order" 

ON  SELECTION  POPUP  orde_pop  DO  orde_pro 

*  ON  the  Orders  pad's  bars  , 

ON  BAR  1  OF  ordejpop  DO  sureordl 

ON  BAR  2  OF  ordejpop  DO  sureord2 
ON  BAR  4  OF  ordejpop  DO  sureord4 

*  Define  the  Reports  pad's  popup  and  bars 
DEFINE  POPUP  repojpop  FROM  1,47  MESSAGE  "Reports" 

DEFINE  BAR  1  OF  repojpop  PROMPT  "Orders-based  Reports" 

*  DEFINE  BAR  2  OF  repo_pop  PROMPT  "SRC-based  Surelite  System" 

*  DEFINE  BAR  3  OF  repojpop  PROMPT  "Population-based  Reports" 

DEFINE  BAR  2  OF  repo_pop  PROMPT  "System  Reports" 

ON  SELECTION  POPUP  repojjop  DO  repojpro 

*  ON  the  Reports  pad's  bars 

ON  BAR  1  OF  repojpop  DO  surerepl 

*  ON  BAR  2  OF  repojpop  DO  surerep2 

*  ON  BAR  3  OF  repojjop  DO  surerep3 
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ON  BAR  2  OF  repa_pop  DO  surerep2 

*  Define  the  Utilities  pad's  popup  and  bars 

DEFINE  POPUP  util_pop  FROM  1,55  MESSAGE  "Utilities” 
DEFINE  BAR  1  OF  util_pop  PROMPT  "Reindex  Files" 

DEFINE  BAR  2  OF  util_pop  PROMPT  "Backup  Files" 

DEFINE  BAR  3  OF  util_pop  PROMPT  "Restore  Files" 

DEFINE  BAR  4  OF  util_pop  PROMPT  "Printer  Setup" 

DEFINE  BAR  5  OF  util_pop  PROMPT  "Compressed  Print  ON" 

DEFINE  BAR  6  OF  util_pop  PROMPT  "Compressed  Print  OFF" 

ON  SELECTION  POPUP  util  pop  DO  util  pro 

*  ON  the  Utilities  pad's  bars 
ON  BAR  1  OF  util_pop  DO  sureutil 
ON  BAR  2  OF  util_pop  DO  sureuti2 
ON  BAR  3  OF  util_pop  DO  sureuti3 
ON  BAR  4  OF  util_pop  DO  sureuti4 
ON  BAR  5  OF  util_pop  DO  sureuti5 
ON  BAR  6  OF  util_pop  DO  sureuti6 

*  Define  the  HELP  pad's  popup  and  bars 
DEFINE  POPUP  help_pop  FROM  1,54  MESSAGE  "HELP" 

DEFINE  BAR  1  OF  helpjpop  PROMPT  "Browse  Help" 

DEFINE  BAR  2  OF  help_pop  PROMPT  "Print  Instructions" 
DEFINE  BAR  3  OF  help_pop  PROMPT  "Edit  Help  Database" 

ON  SELECTION  POPUP  helpjpop  DO  help_pro 

*  ON  the  HELP  pad's  bars 

ON  BAR  1  OF  help_pop  DO  surehell 
ON  BAR  2  OF  help_pop  DO  surehel2 

*  Define  the  Quit  pad's  popup  and  bars 
DEFINE  POPUP  quit_pop  FROM  1,61  MESSAGE  "QUIT" 

DEFINE  BAR  1  OF  quit_pop  PROMPT  "Do  NOT  Quit!” 

DEFINE  BAR  2  OF  quit_pop  PROMPT  "QUIT" 

ON  SELECTION  POPUP  quit_pop  DO  quitjpro 

*  ON  the  Quit  pad's  bars 

ON  BAR  1  OF  quit_pop  DO  surequil 
ON  BAR  2  OF  quit_pop  DO  surequi2 
RETURN 


*  ! 

★  f 

★  1 

Procedure : 

SRC_PRQ 

★  | 

*  ! 

Called  by: 

DEF_MENS 

*  ! 

Calls: 

CREATESR. PRG 

★  ! 

STARTHLP . PRG 

★  f 

EDITUNIT . PRG 

★  j 

CUSTUNIT. PRG 

★ ! 

DELUNIT . PRG 

*  t 

(procedure  in  SURE. PRG) 


PROCEDURE  src_pro 

DO  CASE 

CASE  BAR ( )  =  1 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
progvar2=progvar 
DO  createsr 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 


b 
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CASE  BAR ( )  =  2 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  editunit 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BAR()  =  3 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  custunit 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BAR()  =  5 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  delunit 


CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
ENDCASE 

* i *****++*****+************+******* 


★  ? 

★  { 

Procedure: 

TASK_PRO 

*  1 

★  [ 

Called  by: 

DEF_MENS 

★  1 

★  ! 

Calls : 

CREATETA. PRG 

★  f 

STARTHLP . PRG 

★  1 

CREATETC. PRG 

★  f 

EDITTASK. PRG 

*  j 

★  t 

DELTAS K. PRG 

(procedure  in  SURE.PRG) 


PROCEDURE  task_pro 

DO  CASE 

CASE  BAR ( )  =  1 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  createta 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BAR()  =  2 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  createtc 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
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progvar=progvar2 
CASE  BARO  =  3 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  edittask 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BAR()  =  5 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  deltask 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
ENDCASE 
RETURN 


★  1 

★  f 

Procedure : 

PROF_PRO 

★  ! 

★  [ 

Called  by: 

DEF_MENS 

★  j 

*  ! 

Calls : 

CREATEPR. PRG 

*  f 

STARTHLP. PRG 

*  ! 

EDITPROF. PRG 

★  i 

DELPROF. PRG 

*  ! 

CRECUSPR. PRG 

★  ! 

’ 

(procedure  in  SURE.PRG) 


PROCEDURE  prof_pro 
DO  CASE 

CASE  BAR()  =  1 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  createpr 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BARO  =  2 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  editprof 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BARO  =  4 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  delprof 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 


jr 


* 


■f, 
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•k 
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RESTORE  SCREEN  FROM  screenva 
BO  starthlp 
progvar=progvar2 
CASE  BAR()  =  6 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  crecuspr 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 


RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 


ENDCASE 

RETURN 


★ 


•A- 

★ 

★ 

■k 

■k 

•k 

* 

•k 

~k 


Procedure:  ORDE_PRO 
Called  by:  DEF_MENS 


Calls:  CREATEOR. PRG 
:  STARTHLP . PRG 
:  EDITORDE . PRG 
:  DELORDE . PRG 


(procedure  in  SURE. PRG) 


★ 


PROCEDURE  orde_pro 
DO  CASE 

CASE  BAR()  =  1 

SAVE  SCREEN  TO  screenva 
CLEAR 

CLOSE  PROCEDURE 
DO  createor 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 


RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BAR()  =  2 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  editorde 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
p  r ogva  r=p  r ogva  r 2 
CASE  EAR ( )  =  4 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  delorde 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
ENDCASE 
RETURN 

★i**************************-******************************************* 


*  ! 
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*!  Procedure:  REPO  PRO 

*  |  — 

* •  Called  by:  DEF_MENS  (procedure  in  SURE.PRG) 

*  ! 

*!  Calls:  ORDEREP1 . PRG 

* !  :  STARTHLP . PRG 

*!  :  SYSREP . PRG 

*  i 


*1  ********************  +  **  +  **  +  **.*..*.***  +  ********  +  *  +  **.*.  +  +  **************** 
PROCEDURE  repo_pro 
DO  CASE 

CASE  BAR()  =  1 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  orderepl 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 


progvar=progvar2 

*  CASE  BAR  ( )  =  2 

*  SAVE  SCREEN  TO  screenva 

*  CLOSE  PROCEDURE 

*  DO  surelit2 

*  CLOSE  PROCEDURE 

*  SET  PROCEDURE  TO  INSTRUCT 

*■  RESTORE  SCREEN  FROM  screenva 

*  DO  starthlp 

*  progvar=progvar2 

*  CASE  BAR()  =  3 

*  SAVE  SCREEN  TO  screenva 

*  CLOSE  PROCEDURE 

*  DO  poprep 

*  CLOSE  PROCEDURE 

*  SET  PROCEDURE  TO  INSTRUCT 

*  RESTORE  SCREEN  FROM  screenva 
CASE  BAR ( )  =  2 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  sysrep 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
ENDCASE 


■ic 


DO  starthlp 
progvar=progvar2 


RETURN 


★ 


*  ! 

★  * 

★  j 

Procedure : 

UTIL_PRO 

★  t 

*  ! 

Called  by: 

DEF_MENS 

*  ! 

Calls: 

REINDX. PRG 

★  f 

STARTHLP . PRG 

*  ! 

BACKDBF.  PRG 

★  ! 

RESTOREF. PRG 

*  ! 

PRNSETUP . PRG 

★  ] 

COMPRESS. PRG 

*  ! 

UNCOMP RE. PRG 

(procedure  in  SURE.PRG) 


* 


k 


U 


-r 
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*  ! 

-  *  I  ***+************************************+**************************** 

PROCEDURE  util_pro 
DO  CASE 

CASE  BAR ( )  =  1 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  reindx 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BAR ( )  =  2 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 

*  DO  backdbf 
CLOSE  PROCEDURE 

SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
pr ogva  r =p  r ogva  r 2 
CASE  BAR ( )  =  3 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  restoref 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BAR()  =  4 
DO  prnsetup 
DO  starthlp 
progvar=progvar2 
CASE  BAR()  =  5 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  COMPRESS 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 

,  DO  starthlp 

progvar=progvar2 
CASE  BAR()  =  6 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 
DO  uncomp re 

*  CLOSE  PROCEDURE 

SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
ENDCASE 
RETURN 


*  ! 

★  » 

i 

Procedure: 

QUIT_PRO 

+  i 

Called  by: 

DEF_MENS 

(procedure  in  SURE.PRG) 
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Calls:  CLOSEALL. PRG 


*  ! 
*  ! 
*  i 


PROCEDURE  quit_pro 
DO  CASE 

CASE  BAR()  =  1 

SAVE  SCREEN  TO  screenva 
RESTORE  SCREEN  FROM  screenva 
CASE  BAR ( )  =  2 

SAVE  SCREEN  TO  screenva 
DO  closeall 

SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
ENDCASE 
RETURN 


*  ! 

★  j 

*  f 

Procedure : 

HELP_PRO 

*  ! 

*  ! 

Called  by: 

DEF_MENS 

★  I 

Calls : 

HELPNDX. PRG 

★  ! 

STARTHLP. PRG 

★  ! 

PRNTHELP. PRG 

★  I 

EDITHELP. PRG 

(procedure  in  SURE. PRG) 


*  !*  +  ****  +  +  * *.* *  +  +  **•*■*  +  +  +  **  +  **  +  +  ******  +  ***■•*■***  +  ***  +  **■*******  +  *  +  *****  +  *  +  ■** 
PROCEDURE  help_pro 
DO  CASE 
CASE  BAR()  =  1 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 


DO  helpndx 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BAR()  =  2 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 


DO  prnthelp 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 
DO  starthlp 
progvar=progvar2 
CASE  BAR()  =  3 

SAVE  SCREEN  TO  screenva 
CLOSE  PROCEDURE 


DO  edithelp 
CLOSE  PROCEDURE 
SET  PROCEDURE  TO  INSTRUCT 
RESTORE  SCREEN  FROM  screenva 


DO  starthlp 
progvar=progvar2 
ENDCASE 
RETURN 


*- 


k 


X 


*:  EOF:  SURE. PRG 
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Procedure  file 
Procs  &  Fncts 


D: \SURE\SYSREP . PRG 

STARTSRP 

PRIN_PRO 

SYSR_PRO 

SRCRPT 

SRCLST 

SRCLINR 

LINLST 

UNITRPT 

UNITLINR 

PROFILER 

TASKORGR 

TASKUNIT 

ORDERRPT 

ORDERTAS 

ORDTASUN 

SYSREND 

GET SRC 

DISPSRC 

LISTSRC 

LISTPROF 

UNITLST 

UNITLIN 

PROFLST 

TASKLST 

TASKUNI 

ORDERTP 

ORDERLST 

ORDERTUP 


Set  by:  REPO  PRO 


Calls : 


STARTSRP 
PRIN_PRO 
SYSR  PRO 


(procedure  in  SURE. PRG) 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 


Documented  04/16/94  at  11:02 


SNAP!  version  5.00 


*  SRCrep.prg  SRC-based  quick  logistics  estimations 
STORE  PROGRAM ()  TO  progvar 

*  PRIVATE  Variables 

**  Temporary  variables  for  page  length 

* STORE  55  TO  varpagel 

* STORE  5  TO  varlmarg 

SET  MARGIN  TO  varlmarg 

*_PLENGTH=55 

STORE  "  "  TO  printvar 

STORE  SPACE (60)  TO  namevar 

STORE  SPACE (60)  TO  filevar 

filevar=HOME ( ) +SPACE (LEN ( filevar) -LEN (HOME ( ) ) ) 

SET  PROCEDURE  TO  instsysr 
CLEAR 

DO  startsrp 

DEFINE  POPUP  prin_pop  FROM  1,0 

DEFINE  BAR  1  OF  prin_pop  PROMPT  "Print  to  Printer" 
DEFINE  BAR  2  OF  prin_j>op  PROMPT  "Print  to  Screen" 

341 


DEFINE  BAR  3  OF  prin_pop  PROMPT  "Print  to  ASCII  File" 

DEFINE  BAR  4  OF  prin_pcp  PROMPT  "DONE!" 

ON  SELECTION  POPUP  prin_pop  DO  prin_pro 
DEFINE  POPUP  sysr_pop  FROM  1,0 

DEFINE  BAR  1  OF  sysr_pop  PROMPT  "SP.Cs  (TOE  Listings)" 

DEFINE  BAR  2  OF  sysr_pop  PROMPT  "SRC  with  LINs" 

DEFINE  BAR  3  OF  sysr  pop  PROMPT  "Units" 

DEFINE  BAR  4  OF  sysr~p°P  PROMPT  "Units  with  LINs” 

DEFINE  BAR  5  OF  sysr_pop  PROMPT  "Parameter  Sets" 

DEFINE  BAR  6  OF  sysr_pop  PROMPT  "Task  Organizations" 

DEFINE  BAR  7  OF  sysr~p°P  PROMPT  "Task  Organizations  with  Units" 

DEFINE  BAR  8  OF  sysr  pop  PROMPT  "Orders" 

DEFINE  BAR  9  OF  sysr_pop  PROMPT  "Orders  with  Task  Organizations  and  Profiles" 
DEFINE  BAR  10  OF  sysr_pop  PROMPT  "Orders  with  Task  Orgs,  Units,  and  Profiles" 
DEFINE  BAR  11  OF  sysr_pop  PROMPT  "Change  Printer  Defaults" 

DEFINE  BAR  12  OF  sysr_pop  PROMPT  "Return  to  Main  Menu" 

ON  SELECTION  POPUP  sysr  pop  DO  sysr_pro 
ON  BAR  1  OF  sysr_pop  DO  sysr_barl 

ON  BAR  2  OF  sysr_pop  DO  sysr  bar2 

ON  BAR  3  OF  sysr_pop  DO  sysr  bar3 

ON  BAR  4  OF  sysr_pop  DO  sysr  bar 4 

ON  BAR  5  OF  sysr_pop  DO  sysr  bar5 

ON  BAR  6  OF  sysr_pop  DO  sysr_bar6 

ON  BAR  7  OF  sysr_pop  DO  sysr_bar7 

ON  BAR  8  OF  sysr_pop  DO  sysr_bar8 

ON  BAR  9  OF  sysr_pop  DO  sysr  bar9 

ON  BAR  10  OF  sysr_jpop  DO  sysr^balO 
ON  BAR  11  OF  sysr_pop  DO  sysr_ball 
ON  BAR  12  OF  sysr_pop  DO  sysr_bal2 
DO  WHILE  PROMPT ()<>" Return  to  Main  Menu" 

ACTIVATE  POPUP  sysrjpop 
ENDDO  (PROMPT ()<> "Return  to  Main  Menu") 

*  ! 

*!  Procedure:  SYSR  PRO 

+ 1  ~ 


+  t 

*  ! 

Called  by:  SYSREP.PRG 

★  r 

Calls:  SRCRPT 

(procedure 

in 

SYSREP.PRG) 

*  ! 

:  SRCLINR 

(procedure 

in 

SYSREP.PRG) 

★  I 

:  UNITRPT 

(procedure 

in 

SYSREP.PRG) 

*  ! 

:  UNITLINR 

(procedure 

in 

SYSREP.PRG) 

+  ! 

:  PROFILER 

(procedure 

in 

SYSREP.PRG) 

*  ! 

:  TASKORGR 

(procedure 

in 

SYSREP.PRG) 

*  ! 

:  TASKUNIT 

(procedure 

in 

SYSREP.PRG) 

*  ! 

:  ORDERRPT 

(procedure 

in 

SYSREP.PRG) 

★  ! 

:  ORDERTAS 

(procedure 

in 

SYSREP.PRG) 

★  ! 

:  ORDTASUN 

(procedure 

in 

SYSREP.PRG) 

★  | 

:  PRNSETUP . PRG 

*  ! 

:  SYSREND 

(procedure 

in 

SYSREP.PRG) 

*  ! 

PROCEDURE  sysr_pro 
DO  CASE 

*  SRC  report 
CASE  BAR ( )  =  1 

DO  srcrpt 

*  SRC  with  LINs  report 
CASE  BAR  ( )  =  2 

DO  srclinr 


* 


k 


* 
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*  Unit  report 
CASE  BARO  =  3 

DO  unitrpt 

*  Unit  with  LINs  report 
CASE  BAR()  =  4 

DO  unitlinr 

*  Profile  report 
CASE  BAR()  =  5 

DO  profiler 

*  Task  Organizations  report 
CASE  BARO  =  6 

DO  taskorgr 

*  Task  Organization  with  Units  report 
CASE  BAR()  =  7 

DO  taskunit 

*  Orders  Report 
CASE  BARO  =  8 

DO  orderrpt 

*  Order  with  Task  Orgs  and  Profiles  report 
CASE  BAR()  =  9 

DO  ordertas 

*  Order  with  Task  Orgs,  Profiles,  and  Units  report 
CASE  BARO  =  10 

DO  ordtasun 

*  Change  Printer  Defaults 
CASE  BAR()  =  11 

DO  prnsetup 

*  DONE  Save  SRC  and  end 
CASE  BARO  =  12 

DO  sysrend 
ENDCASE 
*  SRC  report 


★  1 
★  1 
*  1 

Procedure : 

SRCRPT 

★  f 

★  1 

Called  by: 

SYSR_PRO 

(procedure  in 

SYSREP. PRG) 

*  ! 

*  ! 

Calls : 

SRCLST 

(procedure  in 

SYSREP.PRG) 

★  t 

★  ! 

Other  Files: 

&FILEVAR 

PROCEDURE  srcrpt 
CLEAR 

DO  WHILE  PROMPT ()<>"DONE!" 

ACTIVATE  POPUP  prin_pop 
IF  PROMPT ()<>" DONE!" 

SELECT  6 

SET  ORDER  TO  src 
GO  TOP 
DO  CASE 

CASE  PROMPT ( ) =  "Print  to  Printer" 
printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
ACTIVATE  WINDOW  process 
GO  TOP 
DO  srclst 

DEACTIVATE  WINDOW  process 


SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
CASE  PROMPT! )=  "Print  to  Screen" 
printdes="s" 

GO  TOP 
DO  srclst 

CASE  PROMPT ()=  "Print  to  ASCII  File” 
printdes=" f " 

ACTIVATE  WINDOW  process 

@1,1  SAY  "Enter  path  and  file  name.” 

@3,1  GET  filevar 
READ 

SET  ALTERNATE  TO  & filevar 
SET  ALTERNATE  ON 
GO  TOP 
DO  srclst 

DEACTIVATE  WINDOW  process 
SET  ALTERNATE  OFF 
CASE  PROMPT! )=  "DONE!” 

CLOSE  DATA 
DEACTIVATE  POPUP 
ENDCASE 

ENDIF  ( PROMPT ()<>" DONE!") 

ENDDO  ( PROMPT ( ) <>"DONE ! " ) 

*  ! 

*1  Procedure:  SRCLST 

*  I 

*!  Called  by:  SRCRPT  (procedure  in  SYSREP.PRG) 

★  ! 


PROCEDURE  srclst 
CLEAR 

?  "SRC  UNIT  DESIGNATION  STRENGTH” 

? 

DO  WHILE  .NOT.  EOF ( ) 

?  src+"  " +uni t_de s i g+ "  "+TRANSFORM ( strength,  ”@R  999,999") 
SKIP 


IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

CLEAR 

?  "SRC  UNIT  DESIGNATION 

7 

ENDIF  (printdes="s"  .AND.  ROW!) >20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 
EJECT 

?  "SRC  UNIT  DESIGNATION 

7 


STRENGTH" 


STRENGTH" 


ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel ) 
ENDDO  (.NOT.  EOF!)) 

DO  CASE 


CASE  printdes="s" 

7 

WAIT 

CLEAR 


CASE  printdes="f " 

7 


?  "END  OF  FILE" 
CASE  printdes="p" 


EJECT 

ENDCASE 


k 

k 


SRC  with  LINs  report 


S 


t 


k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


Procedure:  SRCLINR 

Called  by:  SYSR_PRO 

Calls:  GET SRC 
:  LINLST 

Other  Files:  &FILEVAR 


(procedure  in 


SYSREP. PRG) 


(procedure 

(procedure 


in  SYSREP. PRG) 
in  SYSREP. PRG) 


PROCEDURE  srclinr 
*  Choose  SRC 


CLEAR 


DO  getsrc 
SELECT  5 

SET  FILTER  TO  src=srclist->src 
GO  TOP 

*  Choose  where  to  print  to 
DO  WHILE  PROMPT ( ) <>"DONE ! " 

ACTIVATE  POPUP  prin_pop 
IF  PROMPT ()<>"DONE!" 

DO  CASE 

CASE  PROMPT ( ) =  "Print  to  Printer” 
printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
ACTIVATE  WINDOW  process 
GO  TOP 
DO  linlst 

DEACTIVATE  WINDOW  process 
SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
CASE  PROMPT ( ) =  "Print  to  Screen" 
printdes="s" 

GO  TOP 
DO  linlst 

CASE  PROMPT ( ) =  "Print  to  ASCII  File" 
printdes="f " 

ACTIVATE  WINDOW  process 
@  1,1  SAY  "Enter  path  and  file  name. 
@3,1  GET  filevar 
READ 

SET  ALTERNATE  TO  & filevar 
SET  ALTERNATE  ON 
GO  TOP 
DO  linlst 


DEACTIVATE  WINDOW  process 
SET  ALTERNATE  OFF 
CASE  PROMPT ()=  "DONE!" 

CLOSE  DATA 
DEACTIVATE  POPUP 
ENDCASE 

ENDIF  (PROMPT ()<>"DONE!") 

ENDDO  (PROMPT () <>"DONE! ") 

*  SRC  DATA 
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*  LINs 


*  ! 

★  ! 

*  ! 

Procedure : 

LINLST 

*  ! 

*  t 

Called  by: 

SRCLINR 

(procedure  in  SYSREP.PRG) 

*1*-k-k*  +  *-k*  +  -k-ir  +  -)r***  +  +-k-!e-k-k  +  +  +  ±  +  -tr  +  +  +.+.+.  +  +.  +  +  +  ±.  +  +  +  +.  +  +  +  +  +  +  +  +  ie+  +  +  +  +  +  4.ir  +  .k  +  +  +4r+jr+. 

PROCEDURE  linlst 
CLEAR 

?  "SRC  UNIT  DESIGNATION  STRENGTH" 

7 

?  srclist->src+"  "+srclist->unit_desig+"  "+TRANSFORM ( srclist->strength, "@R 
999,999") 

7 

?  "LIN  NOMENCLATURE  QUANTITY" 

7 

DO  WHILE  .NOT.  EOF ( ) 

?  lin+"  " 

DO  CASE 

CASE  polrate->lin_nomen<>"  " 

??  polrate->lin_nomen 

CASE  polrate->lin_nomen="  "  .AND.  ammorate->lin  nomeno"  " 

??  ammorate->lin_noraen 

CASE  polrate->lin_nomen="  "  .AND.  ammorate->lin_nomen="  " 

??  "UNKNOWN 
ENDCASE 

??  "  "+TRANSFORM (quantity, "@R  999,999") 

SKIP 

IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

CLEAR 

?  "SRC  UNIT  DESIGNATION  STRENGTH" 

7 

?  srclist->src+"  "+srclist->unit_desig+" 

"+TRANSFORM ( srclist->strength, "@R  999, 999") 

? 

?  "LIN  NOMENCLATURE  QUANTITY" 

7 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 
EJECT 

?  "SRC  UNIT  DESIGNATION  STRENGTH" 

7 

?  srclist->src+"  "+srclist->unit_desig+" 

"+TRANSFORM ( srclist->strength, "@R  999, 999") 

7 

?  "LIN  NOMENCLATURE  QUANTITY" 

7 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel ) 

ENDDO  (.NOT.  EOF()) 

DO  CASE 

CASE  printdes="s" 

7 

WAIT 

CLEAR 

CASE  printdes="f" 

7 

?  "END  OF  FILE" 


* 
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CASE  printdes=”p" 


EJECT 
END CASE 
*  Unit  report 


★ 


★ 


•k 

■k 

■k 

•k 

k 

k 

k 

k 


Procedure:  UNITRPT 

Called  by:  SYSR_PRO  (procedure  in  SYSREP.PRG) 

Calls:  UNITLST  (procedure  in  SYSREP.PRG) 

Other  Files:  & FILEVAR 

kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkk 


PROCEDURE  unitrpt 
CLEAR 

DO  WHILE  PROMPT ()<> "DONE!" 

ACTIVATE  POPUP  prin_pop 
IF  PROMPT ()<> "DONE!" 

SELECT  2 

SET  ORDER  TO  unitname 

GO  TOP 

DO  CASE 

CASE  PROMPT ( ) =  "Print  to  Printer" 
printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
ACTIVATE  WINDOW  process 
GO  TOP 
DO  unitlst 


DEACTIVATE  WINDOW  process 
SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
CASE  PROMPT ()=  "Print  to  Screen" 
printdes="s" 

GO  TOP 
DO  unitlst 

CASE  PROMPT ()=  "Print  to  ASCII  File" 
printdes="f " 

ACTIVATE  WINDOW  process 

@1,1  SAY  "Enter  path  and  file  name. 

@3,1  GET  filevar 

READ 

SET  ALTERNATE  TO  & filevar 
SET  ALTERNATE  ON 
GO  TOP 
DO  unitlst 


DEACTIVATE  WINDOW  process 
SET  ALTERNATE  OFF 
CASE  PROMPT ()=  "DONE!" 

CLOSE  DATA 
DEACTIVATE  POPUP 
ENDCASE 

ENDIF  (PROMPT ()<>"DONE!") 

ENDDO  (PROMPT ()<> "DONE! ") 


*  Unit  with  LINs  report 


*  ! 


*  ! 


Procedure:  UNITLINR 


Called  by:  SYSR_PRO 


(procedure  in  SYSREP.PRG) 


*  ! 

*  ! 

*  !  Calls:  UNITLIN  (procedure  in  SYSREP.PRG) 

*  ! 

*  !  Other  Files:  &FILEVAR 

*  ! 

*]*****+**+*************+*****+***********-*+******+**********+********* 

PROCEDURE  unitlinr 

CLEAR 

DO  WHILE  PROMPT ( ) <>"DONE ! " 

ACTIVATE  POPUP  prin_pop 
IF  PROMPT ()<>" DONE!" 

SELECT  2 

SET  ORDER  TO  unitname 
GO  TOP 
DO  CASE 

CASE  PROMPT ( ) =  "Print  to  Printer" 
printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
ACTIVATE  WINDOW  process 
GO  TOP 
DO  unitlin 

DEACTIVATE  WINDOW  process 
SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
CASE  PROMPT) )=  "Print  to  Screen" 
printdes="s" 

GO  TOP 
DO  unitlin 

CASE  PROMPT ()=  "Print  to  ASCII  File" 
printdes="f " 

ACTIVATE  WINDOW  process 

@1,1  SAY  "Enter  path  and  file  name.” 

@3,1  GET  filevar 
READ 

SET  ALTERNATE  TO  & filevar 
SET  ALTERNATE  ON 
GO  TOP 
DO  unitlin 

DEACTIVATE  WINDOW  process 
SET  ALTERNATE  OFF 
CASE  PROMPT ()=  "DONE!" 

CLOSE  DATA 
DEACTIVATE  POPUP 
ENDCASE 

ENDIF  (PROMPT ()<> "DONE!") 

ENDDO  (PROMPT () <>"DONE! " ) 

*  Profile  report 

* ;  ****■****  +  **•**  +  ******  +  +  *  +  *  +  +  **  +  +  ***.***  +  ******.*****  +  +  .*.*  +  **  +  **  +  *  +  **  +  *  +  +  * 


★  t 

★  r 

★  1 

Procedure: 

PROFILER 

★  t 

*  ! 

Called  by: 

SYSR_PRO 

(procedure  in 

SYSREP.PRG) 

*  ! 

*  ! 

Calls : 

PROFLST 

(procedure  in 

SYSREP.PRG) 

★  i 

Other  Files: 

& FILEVAR 

+  |  +  **  +  +  *******  +  ***:*•  +  ***********■*  +  ****+**  +  ***■*■*  +  -*********  +  *******  +  *+■**'*-* 

PROCEDURE  profiler 

CLEAR 

DO  WHILE  PROMPT ( ) <>”DONE ! " 

ACTIVATE  POPUP  prin_pop 
IF  PROMPT ()<> "DONE!” 

SELECT  4 

SET  ORDER  TO  profilenam 
GO  TOP 
DO  CASE 

CASE  PROMPT ()=  "Print  to  Printer" 
printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
ACTIVATE  WINDOW  process 
GO  TOP 

■*  DO  proflst 

DEACTIVATE  WINDOW  process 
SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
CASE  PROMPT ()=  "Print  to  Screen" 
printdes="s" 

GO  TOP 
DO  proflst 

CASE  PROMPT ()=  "Print  to  ASCII  File" 
printdes="f " 

ACTIVATE  WINDOW  process 

@1,1  SAY  "Enter  path  and  file  name." 

@  3, r  GET  filevar 
READ 

SET  ALTERNATE  TO  &filevar 
SET  ALTERNATE  ON 
GO  TOP 
DO  proflst 

DEACTIVATE  WINDOW  process 
SET  ALTERNATE  OFF 
CASE  PROMPT ( ) =  "DONE ! " 

CLOSE  DATA 
DEACTIVATE  POPUP 
ENDCASE 

ENDIF  (PROMPT ()<>" DONE!") 

ENDDO  (PROMPT ()<>" DONE!") 

*  Task  Organizations  report 


*  ! 

★  \ 

★  i 

Procedure: 

TASKORGR 

★  ? 

★  f 

Called  by: 

SYSR_PRO 

(procedure 

in  SYSREP.PRG) 

★  j 

*  ! 

Calls : 

TASKLST 

(procedure 

in  SYSREP.PRG) 

★  ! 

★  ! 

Other  Files: 

& FILEVAR 

PROCEDURE  taskorgr 
CLEAR 

DO  WHILE  PROMPT ()<> "DONE!" 
ACTIVATE  POPUP  prin_pop 
IF  PROMPT ()<>"DONE!" 
SELECT  1 
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SET  ORDER  TO  uniqueta 
GO  TOP 
DO  CASE 

CASE  PROMPT ()=  "Print  to  Printer” 
printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
ACTIVATE  WINDOW  process 
GO  TOP 
DO  tasklst 

DEACTIVATE  WINDOW  process 
SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
CASE  PROMPT ()=  "Print  to  Screen" 
printdes="s" 

GO  TOP 
DO  tasklst 

CASE  PROMPT ( ) =  "Print  to  ASCII  File” 
printdes="f " 

ACTIVATE  WINDOW  process 
@  1,1  SAY  "Enter  path  and  file  name." 

@3,1  GET  filevar 
READ 

SET  ALTERNATE  TO  & filevar 
SET  ALTERNATE  ON 
GO  TOP 
DO  tasklst 

DEACTIVATE  WINDOW  process 
SET  ALTERNATE  OFF 
CASE  PROMPT ()=  "DONE!" 

CLOSE  DATA 
DEACTIVATE  POPUP 
ENDCASE 

ENDIF  (PROMPT {)<> "DONE!") 

ENDDO  ( PROMPT ( ) <>"DONE ! " ) 

*  Task  Organization  with  Units  report 
*!************************  +  ****************•*****-******-*******-*******'-*’-*-* 


*  ! 

★  ? 

*  ! 

Procedure: 

TASKUNIT 

*  ! 

*  ! 

Called  by: 

SYSR_PRO 

(procedure 

in  SYSREP.PRG) 

*  ! 

*  ! 

Calls : 

TASKUNI 

(procedure 

in  SYSREP.PRG) 

*  ! 

★  f 

Other  Files: 

4 FILEVAR 

★  {★★★★★★★★★★★★★★★★■AT**************************************************** 

PROCEDURE  taskunit 
CLEAR 

DO  WHILE  PROMPT ()<>"DONE!" 

ACTIVATE  POPUP  prin_pop 
IF  PROMPT ()<> "DONE!" 

SELECT  1 

SET  ORDER  TO  taskorgnam 
GO  TOP 
DO  CASE 

CASE  PROMPT ( ) =  "Print  to  Printer" 
printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 


ACTIVATE  WINDOW  process 
GO  TOP 
DO  taskuni 

DEACTIVATE  WINDOW  process 
SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
CASE  PROMPT ()=  "Print  to  Screen” 
printdes="s" 

GO  TOP 
DO  taskuni 

CASE  PROMPT ()=  "Print  to  ASCII  File" 
printdes="f " 

ACTIVATE  WINDOW  process 

@1,1  SAY  "Enter  path  and  file  name." 

@3,1  GET  filevar 

READ 

SET  ALTERNATE  TO  Sfilevar 
SET  ALTERNATE  ON 
GO  TOP 
DO  taskuni 

DEACTIVATE  WINDOW  process 
SET  ALTERNATE  OFF 
CASE  PROMPT  ()=  "DONE!'" 

CLOSE  DATA 
DEACTIVATE  POPUP 
ENDCASE 

ENDIF  (PROMPT ()<> "DONE!") 

ENDDO  (PROMPT ()<>" DONE!") 

*  Orders  Report 


*  ! 

*  ! 

★  i 

Procedure: 

ORDERRPT 

★  f 

★  f 

Called  by: 

SYSR_PRO 

(procedure  in 

SYSREP.PRG) 

*  ! 

*  ! 

Calls : 

ORDERLST 

(procedure  in 

SYSREP.PRG) 

★  ! 

★  i 

Other  Files: 

& FILEVAR 

PROCEDURE  orderrpt 
CLEAR 

DO  WHILE  PROMPT ()<>"DONE!" 

ACTIVATE  POPUP  prin_pop 
IF  PROMPT ()<> "DONE!" 

SELECT  3 

SET  ORDER  TO  NUMBER 
GO  TOP 

*  DO  CASE 

CASE  PROMPT ( ) =  "Print  to  Printer" 
printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
ACTIVATE  WINDOW  process 
GO  TOP 
DO  orderlst 

DEACTIVATE  WINDOW  process 
SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
CASE  PROMPT ( ) =  "Print  to  Screen" 
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printdes="s" 

GO  TOP 
DO  orderlst 

CASE  PROMPT ()=  "Print  to  ASCII  File" 
printdes=" f " 

ACTIVATE  WINDOW  process 

@1,1  SAY  "Enter  path  and  file  name." 

@3,1  GET  filevar 
READ 

SET  ALTERNATE  TO  Sfilevar 
SET  ALTERNATE  ON 
GO  TOP 
DO  orderlst 

DEACTIVATE  WINDOW  process 
SET  ALTERNATE  OFF 
CASE  PROMPT ( ) =  "DONE!" 

CLOSE  DATA 
DEACTIVATE  POPUP 
ENDCASE 

ENDIF  ( PROMPT ()<> "DONE!") 

ENDDO  (PROMPT ()<> "DONE!") 

*  Order  with  Task  Orgs  and  Profiles  report 

★  ! 

* !  Procedure:  ORDERTAS 

*  ! 

*!  Called  by:  SYS R  PRO  (procedure  in  SYSREP.PRG) 

*  ! 

*!  Calls:  ORDERTP  (procedure  in  SYSREP.PRG) 

*  ! 

*!  Other  Files:  &FILEVAR 

★  j 

*  i  *+**++****+*****+*+++*********+****.*.*.*******+****+*****+***+********.* 

PROCEDURE  ordertas 
CLEAR 

DO  WHILE  PROMPT ()<>" DONE!" 

ACTIVATE  POPUP  prin_pop 
IF  PROMPT ()<>" DONE!" 

SELECT  3 

SET  ORDER  TO  NUMBER 
GO  TOP 
DO  CASE 

CASE  PROMPT ()=  "Print  to  Printer" 
printdes="p” 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
ACTIVATE  WINDOW  process 
GO  TOP 
DO  ordertp 

DEACTIVATE  WINDOW  process 
SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
CASE  PROMPT ()=  "Print  to  Screen" 
printdes="s" 

GO  TOP 
DO  ordertp 

CASE  PROMPT ( ) =  "Print  to  ASCII  File" 
printdes="f " 

ACTIVATE  WINDOW  process 
@1,1  SAY  "Enter  path  and  file  name. 

352 


it 


@3,1  GET  filevar 
READ 

SET  ALTERNATE  TO  & filevar 
SET  ALTERNATE  ON 
GO  TOP 
DO  ordertp 

DEACTIVATE  WINDOW  process 
SET  ALTERNATE  OFF 
CASE  PROMPT ()=  "DONE!" 

CLOSE  DATA 
DEACTIVATE  POPUP 
ENDCASE 

ENDIF  ( PROMPT ( ) <>"DONE ! " ) 

ENDDO  (PROMPT ()<> "DONE! ") 

*  Order  with  Task  Orgs,  Profiles,  and  Units  report 


★  » 

★  I 

*  t 

Procedure: 

ORDTASUN 

*  ! 

+  j 

Called  by: 

SYSR_PRO 

(procedure  in 

SYSREP. PRG) 

★  ? 

★  t 

Calls: 

ORDERTUP 

(procedure  in 

SYSREP.PRG) 

*  ! 

★  ! 

Other  Files: 

& FILEVAR 

PROCEDURE  ordtasun 
CLEAR 

DO  WHILE  PROMPT ()<>"DONE!" 

ACTIVATE  POPUP  prin_pop 
IF  PROMPT ()<>" DONE!" 

SELECT  3 

SET  ORDER  TO  NUMBER 
GO  TOP 
DO  CASE 

CASE  PROMPT ()=  "Print  to  Printer" 
printdes="p" 

SET  DEVICE  TO  PRINT 
SET  PRINT  ON 
ACTIVATE  WINDOW  process 
GO  TOP 
DO  ordertup 

DEACTIVATE  WINDOW  process 
SET  PRINT  OFF 
SET  DEVICE  TO  SCREEN 
CASE  PROMPT ()=  "Print  to  Screen" 
printdes="s" 

GO  TOP 
DO  ordertup 

CASE  PROMPT ( ) =  "Print  to  ASCII  File" 
printdes="f " 

ACTIVATE  WINDOW  process 

@1,1  SAY  "Enter  path  and  file  name." 

@3,1  GET  filevar 

READ 

SET  ALTERNATE  TO  & filevar 
SET  ALTERNATE  ON 
GO  TOP 
DO  ordertup 

DEACTIVATE  WINDOW  process 
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SET  ALTERNATE  OFF 
CASE  PROMPT ()=  "DONE!" 

CLOSE  DATA 
DEACTIVATE  POPUP 
ENDCASE 

ENDIF  (PROMPT () <>"DONE! ") 

ENDDO  (PROMPT () <>"DONE! ") 

*  Change  Printer  Defaults 

*  DO  prnsetup  is  seperate  program 

*  DONE  Save  SRC  and  end 

k  J  k-kkkk-kk-kkkkkkkkkkk-kkk-kkkk-kkk-kkkkkkk-k-k-kk-kkkkkkkkkkkkkkkkkk-kkk  *■  k  *■-*-  +  -*-  + 

*  ! 

* !  Procedure:  SYSREND 

*  ! 

*!  Called  by:  SYSR_PRO  (procedure  in  SYSREP.PRG) 

*  ! 

★i********************************************************************* 


PROCEDURE  sysrend 
CLOSE  DATA 
DEACTIVATE  POPUP 
CLEAR 
RETURN 


★ 


* 

★ 

k 

k 

k 

★ 

•k 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


Procedure:  STARTS RP 
Called  by:  SYSREP.PRG 
Calls:  STARTHLP . PRG 


Uses:  TASKORG. DBF 
:  CSRCLIST . DBF 
:  ORDERLST . DBF 
:  CPROFILE. DBF 
:  SRCLINQT . DBF 
:  SRCLIST . DBF 
:  AMMORATE . DBF 
:  POLRATE. DBF 
:  CSRCLINQ . DBF 
:  ORDERTAS . DBF 


★ 

k 

k 

k 

k 

k 

k 

k 

k 

k 

k 


MDX  files:  TASKORG. MDX 
:  CSRCLIST. MDX 
:  ORDERLST. MDX 
:  CPROFILE. MDX 
:  SRCLINQT. MDX 
:  SRCLIST. MDX 
:  AMMORATE. MDX 
:  POLRATE. MDX 
:  CSRCLINQ. MDX 
:  ORDERTAS. MDX 


PROCEDURE  startsrp 
*Open  Files 
DO  starthlp 
SELECT  1 
USE  taskorg 
SELECT  2 
USE  csrclist 


V 


♦ 


¥ 
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SELECT  3 
USE  orderlst 
SELECT  4 
USE  cprofile 
SELECT  5 
USE  srclinqt 
SELECT  6 
USE  srclist 
SELECT  8 

USE  ammorate  ORDER  lin 
SELECT  12 

USE  polrate  ORDER  lin 
SELECT  14 
USE  csrclinq 
SELECT  18 
USE  ordertas 

*  Set  Relations 
SELECT  6 

SET  ORDER  TO  src 
SELECT  5 

SET  ORDER  TO  src 

SET  RELATION  TO  src  INTO  srclist 
SET  ORDER  TO  lin 

SET  RELATION  TO  lin  INTO  polrate,  lin  INTO  ammorate 

SELECT  14 

SET  ORDER  TO  lin 

SET  RELATION  TO  lin  INTO  polrate,  lin  INTO  ammorate 
SET  ORDER  TO  unitname 
SELECT  2 

SET  ORDER  TO  unitname 

SET  RELATION  TO  unitname  INTO  csrclinq 
SELECT  1 

SET  ORDER  TO  unitname 

SET  RELATION  TO  unitname  INTO  csrclist 
SET  ORDER  TO  taskorgnam 
SELECT  18 

SET  ORDER  TO  taskorgnam 

SET  RELATION  TO  taskorgnam  INTO  taskorg 

SET  ORDER  TO  NUMBER 

SELECT  3 

SET  ORDER  TO  NUMBER 

SET  RELATION  TO  NUMBER  INTO  ordertas 

★  t+‘fc+r'k'kir'kJr’k->r-k  +  ’k'k-k  +  ’ir'k-k  +  -k-k'tr-k4r-4r-ir-tr-)r-ir-ie-ir’ie-k-ir-fr-k-tr'k-ieir-jr-ir’kie'fe-ifkir-k-k-k-k'k-tr'k"k4r1t‘k'kirir'ir-ie’k--k  +  ie 


* ! 

* ! 

★  1 

Procedure: 

GETSRC 

*  ! 

*  ! 

Called  by: 

SRCLINR 

(procedure  in 

SYSREP . PRG) 

★  i 

★  ! 

*  ! 

★  i 

Calls : 

SETBROWS . PRG 
ENDBROWS . PRG 
DISPSRC 

(procedure  in 

SYSREP . PRG) 

★I********************************************************************* 

PROCEDURE  getsrc 
SELECT  6 
GO  TOP 

*  SET  MESSAGE  TO  "Choose  an  SRC,  then  Ctrl-W" 

ACTIVATE  WINDOW  browser 
DO  setbrows 

BROWSE  NOEDIT  NOAPPEND  NOORGANIZE  NODELETE  COMPRESS 


DO  endbrows 

DEACTIVATE  WINDOW  browser 
DO  dispsrc 
statuslv=. y . 

KEYBOARD  " { DNARROW } " 

*  f  ***★*****★  +  ★****★★★*★***★*. ★Jr*******  +  Jr********Jr  +  Jr******J-  +  +  +  '*-*^  *  <  *  -  -•*  *■  * 

*  | 

*!  Procedure:  DISPSRC 

*  ! 

*  -  Called  by:  GET SRC  (procedure  in  SYSREP.PRG) 

Jr  i 

*  !  *********************  +  ******  +  *************************lt.i.**i.i*i.*i.  +  li.  +  <  + 


PROCEDURE  dispsrc 

@  18,5  SAY  n  SRC:  "+srclist->src+"  Strength:  "+; 

LTRIM(STR(srclist->strength) ) 

@  19,5  SAY  "  Unit:  "+srclist->unit_desig 

*  i  *  +  **  +  **■***  +  **********  +  *  +  +  *******  +  *  +  **'***  +  *  +  ***  +  +  *****  +  *****  +  ***  +  ***•  +  * 

*  ! 

*!  Procedure:  DISPPROF 

*  ! 


* !  Called 

*  ! 

+  t 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

*  ! 

* ! 

*  ! 

*  i 


by:  NEWPROFI 
:  VIEWPROF 
:  SELEPROF 
:  CHANGEAP 
:  CHANGEAC 
:  CHANGE I 
:  CHANGEIF 
:  CHANGECI 
:  CHANGEH2 
:  CHANGEME 
:  SELECTPRO 
:  FINDPRO 


(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 


CREATEPR. PRG) 
CREATEPR. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
EDITPROF. PRG) 
DELPROF. PRG) 
CREATEOR. PRG) 


PROCEDURE  dispprof 

@20,5  SAY  "  Profile:  "+profiles->profile 


*  i 


Procedure:  LISTSRC 


*  ! 

*  ! 

*  !  +  +  *****  +  ******  +  **  +  *******  +  **  +  +  *****.********  +  *  +  *****  +  ***  +  i.  +  +  >  +  +  lll.i.:!ir1t  +  vk.i. 

PROCEDURE  listsrc 

?  "  SRC:  "+srclist->src+"  Strength:  "+; 

LTRIM(STR(srclist->strength) ) 

?  "  Unit:  "+srclist->unit_desig 

★  * 

*!  Procedure:  LISTPROF 

* ! 

*i  +  *  +  ******  +  *  +  ***  +  ***  +  ******  +  +  *  +  *******  +  *  +  *++*  +  *  +  ********************** 

PROCEDURE  listprof 
?  "  Profile:  "+profiles->profile 

*!  ****  +  +  **-****  +  +  *  +  **  +  *  +  *****  +  **  +  +  +  *  +  **  +  *****  +  +  *****  +  **.1m.**;(l.  +  *  +  +  +  1k.  +  +  >l.  +  +  + 

*  i 

*  | 

*  ! 

*  ! 

*  i 

*  ! 

*  i 


Procedure:  PRIN_PR0 

Called  by:  SYSREP.PRG 

:  PRINTPOL . PRG 
:  PRINTAMM. PRG 
:  PRINTOTH . PRG 


* 


* 


* 
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* !  Calls 

*  i 

-  PRNSETUP . PRG 

STARTPLR 

(procedure 

in 

t 

PRINTPOL. PRG) 

★  f 

REPORTHD 

(procedure 

in 

PRINTPOL . PRG) 

*  1 

TFHEAD 

(procedure 

in 

PRINTPOL. PRG) 

*  I 

LINPOL 

(procedure 

in 

PRINTPOL. PRG) 

*  f 

POLCALC 

(procedure 

in 

PRINTPOL. PRG) 

*  f 

PUNITPOL 

(procedure 

in 

PRINTPOL. PRG) 

★  f 

PTASKPOL 

(procedure 

in 

PRINTPOL. PRG) 

+  ! 

PORDEPOL 

(procedure 

in 

PRINTPOL. PRG) 

*  1 

LINAMM 

(procedure 

in 

PRINTAMM. PRG) 

*  \ 

AMMOCALC 

(procedure 

in 

PRINTAMM. PRG) 

k  1 

PUN I TAMM 

(procedure 

in 

PRINTAMM. PRG) 

*  ! 

PTASKAMM 

(procedure 

in 

PRINTAMM. PRG) 

*  i 

PORDEAMM 

(procedure 

in 

PRINTAMM. PRG) 

*■  f 

OTHECALC 

(procedure 

in 

PRINTOTH. PRG) 

★  i 

PUNITOTH 

(procedure 

in 

PRINTOTH. PRG) 

f 

PTASKOTH 

(procedure 

in 

PRINTOTH. PRG) 

★  1 

*  ! 

PORDEOTH 

(procedure 

in 

PRINTOTH. PRG) 

PROCEDURE  prin_pro 
DO  CASE 

CASE  PROMPT <)="Print  to  Printer" 
printvar="p" 

SET  PRINT  ON 
SET  DEVICE  TO  PRINT 
DEACTIVATE  POPUP 
CASE  PROMPT ()="Print  to  Screen" 
printvar=”s" 

SET  DEVICE  TO  SCREEN 
DEACTIVATE  POPUP 

CASE  PROMPT ()=" Print  to  ASCII  File" 
printvar="f " 

DEACTIVATE  POPUP 
CASE  PROMPT ()="DONE!" 

DEACTIVATE  POPUP 
ENDCASE 

*1  ****************  +  +  ***  +  +  *****  +  ****.****************.******  +  ****  +  *  +  +  ***** 


★  f 

*  ! 

★  f 

Procedure: 

SRCLST 

*  ! 

★  i 

Called  by: 

SRCRPT 

(procedure  in  SYSREP.PRG) 

PROCEDURE  srclst 
CLEAR 

?  "SRC  UNIT  DESIGNATION  STRENGTH" 

7 

DO  WHILE  .NOT.  EOF ( ) 

?  src+"  "+unit_desig+"  "+TRANSFORM (strength, "@R  999,999") 

SKIP 

IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

CLEAR 

?  "SRC  UNIT  DESIGNATION  STRENGTH" 

7 

ENDIF  (printdes="s”  .AND.  ROW()>20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 


EJECT 

?-  "SRC  UNIT  DESIGNATION  '  STRENGTH" 

7 

ENDIF  (printdes=”p"  .AND.  PROW ( ) >varpagel ) 

ENDDO  ( . NOT .  EOF ( ) ) 

DO  CASE 

CASE  printdes="s" 

7 

WAIT 

CLEAR 

CASE  printdes="f " 

7 

?  "END  OF  FILE" 

CASE  printdes="p" 

EJECT 

ENDCASE 

★  j**************-********-***************-*-******************************* 


*  ! 

*  ! 

*  1 

Procedure: 

UNITLST 

★  ! 

*  f 

Called  by: 

UNITRPT 

(procedure  in  SYSREP.PRG) 

★  i**********************.*.***.****.****.***.*******************.******.******* 

PROCEDURE  unitlst 
CLEAR 

?  "UNIT  STRENGTH 

ECHELON" 

7 

DO  WHILE  .NOT.  EOF ( ) 

?  unitname+"  "+TRANSFORM ( strength, "@R  999,999")+"  "techelon 
SKIP 

IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

CLEAR 

?  "SRC  UNIT  DESIGNATION  STRENGTH" 

7 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 
EJECT 

?  "SRC  UNIT  DESIGNATION  STRENGTH" 

7 

ENDIF  (printdes="p"  .AND.  PROW { ) >varpagel ) 

ENDDO  ( . NOT .  EOF ( ) ) 

DO  CASE 

CASE  printdes="s" 

7 

WAIT 

CLEAR 

CASE  printdes="f " 

7 

?  "END  OF  FILE" 

CASE  printdes="p” 

EJECT 

ENDCASE 

★  j  ★★★*★*  +  *★  +  +  ★★★***★•*•■*■*★★★★  +  *****★**•*•★  +  ★  +  ★★*★★★★★★★★•*••*★*★★*  +  ★**•★*★★★★**- 

★  ! 

*!  Procedure:  UNITLIN 

*  ! 

* !  Called  by:  UNITLINR  (procedure  in  SYSREP.PRG) 


4 


★f********************************************************************* 

PROCEDURE  unitlin 
CLEAR 

?  "UNIT  STRENGTH 

ECHELON" 


DO  WHILE  .NOT.  EOF { ) 

?  unitname+"  "+TRANSFORM ( strength, "@R  999,999")+" 
7 

SELECT  14 

SET  ORDER  TO  unitname 
GO  TOP 

SEEK  csrclist->unitname 
IF  FOUND () 

?  "LIN  QTY  NOMENCLATURE" 

DO  WHILE  csrclinq->unitname=csrclist->unitname 
?  lin+"  "+TRANS FORM (quantity,  "999,  999")+"  " 
IF  ammorate->lin<>"  " 

??  ammorate->lin_nomen 
ELSE 

IF  polrate->lin_nomen<>"  " 

??  polrate->lin_nomen 
ENDIF  (polrate->lin_nomen<>"  ") 

ENDIF  (ammorate->lin<>"  ") 

SKIP 

IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

CLEAR 

?  "LIN  QTY  NOMENCLATURE" 

7 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  printdes=”p"  .AND.  PROW ( ) >varpagel 
EJECT 

?  "LIN  QTY  NOMENCLATURE" 

7 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel) 
ENDDO  ( csrclinq->unitname=csrclist->unitname) 
ENDIF  ( FOUND ()) 

7 

7 

SELECT  2 
SKIP 

IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

CLEAR 

?  "SRC  UNIT  DESIGNATION 

7 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  printdes=”p"  .AND.  PROW ( ) >varpagel 
EJECT 

?  "SRC  UNIT  DESIGNATION 

7 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel ) 

ENDDO  ( . NOT .  EOF ( ) ) 

DO  CASE 

CASE  printdes="s" 

7 


"+echelon 


STRENGTH" 


STRENGTH" 
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WAIT 

CLEAR 

CASE  printdes="f " 

7 

?  "END  OF  FILE" 

CASE  printdes="p" 

EJECT 

ENDCASE 

*  ! 

*!  Procedure:  PROFLST 

*  ! 

*f  Called  by:  PROFILER  (procedure  in  SYSREP.PRG) 

*  ! 

★i***************************.***************************#************** 

PROCEDURE  proflst 

CLEAR 

DO  WHILE  .NOT.  EOF() 

?  "PARAMETER  SET:  "+prof ilenam 
?  "  DESCRIPTION:  "+profiledes 

?  "  AREA  PROFILE:  "+profile 

?  "  INTENSITY:  "+INTENSITY+"  "+"FACTOR:  "+TRANSFORM ( factor , "999 . 99 " ) 

?  "  POSTURE:  "+posture 

?  "  H20  USE:  "+water_name 

?  "  CLASS  I:  "+cl_i_l+"  /  "+cl_i_2+"  /  "+cl  i_3 

?  "  CLASS  VIII:  "+med  name 

7 

SKIP 

IF  printdes="s"  .AND.  ROW{)>20 

7 

WAIT 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 
EJECT 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel ) 

ENDDO  (.NOT.  EOF()) 

DO  CASE 

CASE  printdes="s" 

7 

WAIT 

CLEAR 

CASE  printdes="f " 

7 

?  "END  OF  FILE" 

CASE  printdes="p" 

EJECT 

ENDCASE 

*  i  +  **  +  *  +  +  *'  +  ****  +  +  +  +  **  +  ******  +  +  +  +  ±*  +  ** **************  +  *****  +  **  +  *****  +  **** 

*  ! 

*!  Procedure:  TASKLST 

*  ! 

* •  Called  by:  TASKORGR  (procedure  in  SYSREP.PRG) 

*  ! 

*;+  +  +  ****  +  ***  +  *  +  +  +  *+*  +  *  +  ***  +  **  +  **********lk.*  +  #  +  i  +  +  llr  +  +  lt  +  #  +  j *************** 

PROCEDURE  tasklst 

CLEAR 

?  "TASK  ORGANIZATIONS:" 

7 

DO  WHILE  .NOT.  EOF ( ) 

?  taskorgnam 
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SKIP 

IF  printdes="s"  .AND.  ROW()>20 
7 

WAIT 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 
EJECT 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel ) 

ENDDO  (.NOT.  EOF ( ) ) 

DO  CASE 

CASE  printdes="s" 

7 

WAIT 

CLEAR 

CASE  printdes="f " 

-f  7 

?  "END  OF  FILE" 

CASE  printdes="p" 

EJECT 

ENDCASE 

*  I 

*!  Procedure:  TASKUNI 

*  ! 

*!  Called  by:  TASKUNIT  (procedure  in  SYSREP.PRG) 

★  ! 

★ 

PROCEDURE  taskuni 
CLEAR 

?  "TASK  ORGANIZATIONS:" 

7 

DO  WHILE  .NOT.  EOF ( ) 

?  taskorgnam 
namevar=taskorgnam 

7 

DO  WHILE  .NOT.  EOF ( ) 

?  "  "+unitname 

IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

ENDIF  (printdes="s"  .AND.  ROW()>20) 
m  IF  printdes="p"  .AND.  PROW () >varpagel 

EJECT 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel) 

SKIP 

IF  taskorgnamonamevar 

7 

1  ? 

?  taskorgnam 
namevar=taskorgnam 

7 

ENDIF  (taskorgnamonamevar) 

ENDDO  (.NOT.  EOF()) 

ENDDO  ( . NOT .  EOF ( ) ) 

DO  CASE 

CASE  printdes="s" 

7 

WAIT 

CLEAR 
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CASE  printdes="f " 

7 

?  "END  OF  FILE" 
CASE  printdes="p" 
EJECT 
END CASE 


*  ! 

*  i 

★  ! 

Procedure : 

ORDERTP 

*  f 

★  f 

Called  by: 

ORDERTAS 

(procedure  in  SYSREP.PRG) 

Jf 

PROCEDURE  ordertp 
CLEAR 

?  "ORDERS:" 

?  *• 
DO  WHILE  .NOT.  EOF() 

?  NUMBER+"  "fnarae 
?  descriptio 

?  "PHASES:  "-(-TRANSFORM  (phases,  "9")  +  "  Phase  Lengths:  " 

IF  phases>0 

??  "1st:  "+TRANSFORM(phasellen, "99. 99") +”  " 

ENDIF  (phases>0 ) 

IF  phases>l 

??  "2nd:  "+TRANSFORM (phase21en, "99. 99. ") +"  " 

ENDIF  (phases>l) 

IF  phases>2 

??  "3rd:  "+TRANSFORM(phase31en, "99. 99”) +"  " 

ENDIF  (phases>2 ) 

IF  phases>3 

??  "4th:  "-(-TRANSFORM (phase41en,  "99. 99")  +"  " 

ENDIF  (phases>3) 

IF  phases>4 

7 

??  "5th:  "-(-TRANSFORM (phase51en,  "99.99")+"  " 

ENDIF  (phases>4 ) 

IF  phases>5 

??  "6th:  "-(-TRANSFORM (phase 61  en,  "99.99”)+"  " 

ENDIF  (phases>5) 

IF  phases>6 

??  "7th:  "-(-TRANSFORM (phase71en,  "99. 99”)  +”  ” 

ENDIF  (phases>6) 

IF  phases>7 

??  "8th:  "-(-TRANSFORM (phase81en,  "99.99")+"  " 

ENDIF  (phases>7) 

IF  phases>8 

??  "9th:  " -(-TRANSFORM (phase91en,  "99.99") 

ENDIF  (phases>8)  f 

7 

*  Task  Orgs  &  Phases 
SELECT  18 

SET  ORDER  TO  NUMBER 
SEEK  orderlst->number 
IF  FOUND () 

SET  ORDER  TO  uniquetn 
?  "TASK  ORGANIZATIONS" 

DO  WHILE  NUMBER=orderlst->number 
?  "  "ttaskorgnam 
SKIP 
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ENDDO  (NUMBER=orderlst->number) 

7 

IF  printdes="s "  .AND.  ROW ( ) >20 
7 

WAIT 

ENDIF  !printdes="s"  .AND.  ROW()>20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 
EJECT 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel ) 

ENDIF  (FOUNDO) 

SELECT  3 
SKIP 

IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

*  IF  printdes="p"  .AND.  PROW ( ) >varpagel 

EJECT 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel ) 

ENDDO  (.NOT.  EOF ( ) ) 

DO  CASE 

CASE  printdes="s" 

7 

WAIT 

CLEAR 

CASE  printdes="f" 

7 

?  "END  OF  FILE” 

CASE  printdes="p" 

EJECT 

ENDCASE 

★  i******************-*-*********************************-***************** 


★  1 
*  ! 

■k  ) 

Procedure: 

ORDERLST 

*  ! 

*  ! 

Called  by: 

ORDERRPT 

(procedure  in  SYSREP.PRG) 

*  I********************************************************************* 

PROCEDURE  orderlst 
CLEAR 

?  "ORDERS:” 

7 

DO  WHILE  .NOT.  EOF ( ) 

?  NUMBER+"  "+name 
?  descriptio 

?  "PHASES:  "+TRANSFORM (phases, "9") +"  Phase  Lengths:  " 

IF  phases>0 

??  "1st:  "+TRANSFORM (phasellen,  "99. 99") +"  " 

*  ENDIF  (phases>0) 

IF  phases>l 

??  "2nd:  "+TRANSFORM (phase21en,  "99.99.")+"  " 

ENDIF  (phases>l ) 

IF  phases>2 

??  "3rd:  "+TRANSFORM (phase31en,  "99 .99") +"  " 

ENDIF  (phases>2 ) 

IF  phases>3 

??  "4th:  ”+TRANSFORM(phase41en,  "99. 99") +”  " 

ENDIF  (phases>3 ) 

IF  phases>4 

7 
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??  "5th:  "+TRANSFORM (phase51en, "99 . 99" ) +"  " 

ENDIF  (phases>4) 

IF  phases>5 

??  "6th:  "+TRANSFORM (phase61en, "99 .99") +"  " 

ENDIF  (phases>5) 

IF  phases>6 

??  "7th:  "+TRANSFORM(phase71en,  "99.99")+"  " 

ENDIF  (phases>6) 

IF  phases>7 

??  "8th:  "+TRANSF0RM(phase81en,  "99. 99") +"  " 

ENDIF  (phases>7) 

IF  phases>8 

??  "9th:  "+TRANSF0RM(phase91en,  "99.99") 

ENDIF  (phases>8) 

7 

SKIP 

IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 
EJECT 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel ) 

ENDDO  (.NOT.  EOF()) 

DO  CASE 

CASE  printdes="s" 

7 

WAIT 

CLEAR 

CASE  printdes="f " 

7 

?  "END  OF  FILE” 

CASE  printdes="p" 

EJECT 

ENDCASE 

*  !  +  *p  +  *  +  ****  +  ********  +  +  +  ***  +  +  *-*-*****  +  *-*.*  +  1fc.*:*.****  +  +  ****  +  +  +  *  +  ltA.  +  +  ^ 
+  ! 

*!  Procedure:  ORDERTUP 

*  ! 

*!  Called  by:  ORDTASUN  (procedure  in  SYSREP.PRG) 

*1*  +  *****+*************************^*^^^^**^^^^^^^^^^^^^^^^ 

PROCEDURE  order tup 

CLEAR 

?  "ORDERS:" 

7 

DO  WHILE  .NOT.  EOF() 

?  NUMBER+"  " +name 
?  descriptio 

?  "PHASES:  "+TRANS FORM (phases, "9") +"  Phase  Lengths:  " 

IF  phases>0 

??  "1st:  "+TRANSFORM(phasellen, "99.99”)+"  " 

ENDIF  (phases>0) 

IF  phases>l 

?? , "2nd:  "+TRANSFORM (phase21en, "99 . 99 . ") +"  " 

ENDIF  (phases>l) 

IF  phases>2 

??  "3rd:  ”+TRANSFORM(phase31en,  "99. 99") +”  " 

ENDIF  (phases>2) 

IF  phases>3 


??  "4th:  "+TRANSF0RM(phase41en,  "99.99") +"  " 

ENDIF  (phases>3 ) 

IF  phases>4 
7 

??  "5th:  "+TRANSF0RM(phase51en, "99.99"}+"  " 

ENDIF  (phases>4) 

IF  phases>5 

??  "6th:  "+TRANSF0RM{phase61en, "99.99") +"  " 

ENDIF  (phases>5 ) 

IF  phases>6 

??  "7th:  "+TRANSFORM (phase71en,  "99.99")+"  " 

ENDIF  (phases>6 ) 

IF  phases>7 

??  "8th:  "+TRANSF0RM(phase81en, "99.99")+"  " 

ENDIF  (phases>7) 

IF  phases>8 

*  11  "9th:  "+TRANSF0RM(phase91en,  "99.99") 

ENDIF  (phases>8) 

7 

*  Task  Orgs  &  Phases 
SELECT  18 

SET  ORDER  TO  NUMBER 
SEEK  orderlst->number 
IF  FOUND () 

SET  ORDER  TO  uniquetn 
?  "TASK  ORGANIZATIONS" 

DO  WHILE  NUMBER=orderlst->nuinber 
?  "  "+taskorgnam 
SELECT  1 

SET  ORDER  TO  unitname 

SET  FILTER  TO  taskorgnam=ordertas->taskorgnam 
GO  TOP 

DO  WHILE  .NOT.  EOF ( ) 

?  "  "+unitname 
IF  printdes="s"  .AND.  ROW()>20 

7 

WAIT 

ENDIF  (printdes="s"  .AND.  ROW<)>20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 
EJECT 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel ) 
SKIP 

ENDDO  (.NOT.  EOF ( ) ) 

SET  FILTER  TO 
SELECT  18 
SKIP 

ENDDO  (NUMBER=orderlst->number) 

7 

T  IF  printdes="s"  .AND.  ROW()>20 

1 

WAIT 

ENDIF  (printdes="s"  .AND.  ROW()>20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 
EJECT 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel ) 

ENDIF  (FOUNDO) 

SELECT  3 
SKIP 

IF  printdes="s"  .AND.  ROW()>20 

7 
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WAIT 

ENDIF  <printdes="s"  .AND.  ROW()>20) 

IF  printdes="p"  .AND.  PROW ( ) >varpagel 

EJECT 

ENDIF  (printdes="p"  .AND.  PROW ( ) >varpagel) 

ENDDO  (.NOT.  EOF ( ) ) 

DO  CASE 

CASE  printdes="s" 

7 

WAIT 

CLEAR 

CASE  printdes="f " 

7 

?  "END  OF  FILE" 

CASE  printdes="p" 

EJECT 

ENDCASE 

*:  EOF:  SYSREP.PRG 


t 


Program:  D:\SURE\UNCOMPRE.PRG 
Called  by:  UTIL_PRO  (procedure  in  SURE.PRG) 

Documented  04/16/94  at  11:02  SNAP!  version  5.00 


STORE  SPACE (10)  TO  printvar 
ACTIVATE  WINDOW  small 

@1,1  SAY  "Select  printer  type  with  SPACE" 

@2,1  SAY  "and  RETURN  to  select." 

@3,1  GET  printvar; 

PICTURE  "@M  Dot  Matrix, Laser, Do  not  set!"; 

MESSAGE  "Dot  Matrix  for  Epson/IBM  compatibles.  Laser  for  HP  Laser  Printers 
READ 
DO  CASE 


CASE  printvar="Dot  Matrix" 

???  CHR ( 27 ) +CHR ( 18 ) 

CASE  printvar="Laser" 

???  CHR (27 ) +"@100" 

???  CHR ( 27 ) +" ( 8U" 

???  CHR ( 27 ) +" ( sOplOhl2vOsOb3T" 
ENDCASE 

DEACTIVATE  WINDOW  small 

RETURN 

RETURN 

*:  EOF:  UNCOMPRE.PRG 


* 
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System:  SURE  2.0 
System  Summary 


This  system  has: 

16386  lines  of  code 
18  program  files 
35  procedure  files 
321  procedures  and  functions 
29  databases 
24  multiple  index  files 
34  index  files 
0  report  forms 
0  format  files 
0  label  forms 
0  binary  files 
1  memory  variable  file 
0  menu  files 
0  screen  files 

1  other  file 

2  cross-referenced  tokens 
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System:  SURE  2.0 
File  List 


Programs  and  procedures: 


ADDDATA 

(procedure 

in 

CREATESR. PRG) 

ADDLINCA 
BACKDBF. PRG 

(procedure 

in 

EDITUNIT . PRG) 

CHANGEEH 

(procedure 

in 

EDITUNIT. PRG) 

CHANGELI 
CLOSEALL. PRG 
COMPRESS . PRG 

(procedure 

in 

EDITUNIT. PRG) 

COPYCSRC 

(procedure 

in 

CREATESR. PRG) 

COPYLINS 

(procedure 

in 

CREATESR. PRG) 

CO PYSRC 

(procedure 

in 

CREATESR. PRG) 

CSRCEND 

(procedure 

in 

CREATESR. PRG) 

CSRCENDA 

(procedure 

in 

CREATESR. PRG) 

CSRC  BARI 

(procedure 

in 

INSTUNIT . PRG) 

CSRC  BAR2 

(procedure 

in 

INSTUNIT . PRG) 

CSRC  BAR 3 

(procedure 

in 

INSTUNIT. PRG) 

CSRC  BAR 4 

(procedure 

in 

INSTUNIT. PRG) 

CSRC  BAR 5 

(procedure 

in 

INSTUNIT. PRG) 

CSRC  BAR6 

(procedure 

in 

INSTUNIT. PRG) 

CSRC  PRO 

(procedure 

in 

CREATESR. PRG) 

CUST  BARI 

(procedure 

in 

INSTUNIT. PRG) 

CUST  BAR2 

(procedure 

in 

INSTUNIT. PRG) 

CUST  BAR3 

(procedure 

in 

INSTUNIT. PRG) 

CUST  BAR 4 

(procedure 

in 

INSTUNIT. PRG) 

CUST  BAR5 

(procedure 

in 

INSTUNIT. PRG) 

CUST  BAR 6 

(procedure 

in 

INSTUNIT. PRG) 

DEF  MENS 

(procedure 

in 

SURE. PRG) 

DELLIN 

(procedure 

in 

EDITUNIT. PRG) 

DELU  BARI 

(procedure 

in 

INSTUNIT. PRG) 

DELU  BAR2 

(procedure 

in 

INSTUNIT. PRG) 

DELU  BAR3 

(procedure 

in 

INSTUNIT. PRG) 

DELU  BAR4 

(procedure 

in 

INSTUNIT. PRG) 

DISPUNIT 
ECHELON. PRG 
EDITHELP. PRG 

(procedure 

in 

CREATESR. PRG) 

EDIU  BARI 

(procedure 

in 

INSTUNIT. PRG) 

EDIU  BAR2 

(procedure 

in 

INSTUNIT. PRG) 

EDIU  BAR3 

(procedure 

in 

INSTUNIT. PRG) 

EDIU  BAR4 

(procedure 

in 

INSTUNIT. PRG) 

EDIU  BAR5 

(procedure 

in 

INSTUNIT. PRG) 

EDIU  BAR 6 

(procedure 

in 

INSTUNIT. PRG) 

EDIU  BAR7 

(procedure 

in 

INSTUNIT. PRG) 

EDIU  BAR 8 

(procedure 

in 

INSTUNIT. PRG) 

EDIU  PRO 
ENDBROWS . PRG 

(procedure 

in 

EDITUNIT. PRG) 

ENDUNIT 

HELP. PRG 

HELPNDX . PRG 

(procedure 

in 

EDITUNIT. PRG) 

HELP  PRO 

(procedure 

in 

SURE. PRG) 

MEMOPAGRO 
MEMVARS . PRG 

( function 

in 

.PRG) 

ORDE  PRO 
PRNSETUP . PRG 

(procedure 

in 

SURE. PRG) 

PROF  PRO 

(procedure 

in 

SURE. PRG) 

QUIT  PRO 

REINDX. PRG 

(procedure 

in 

SURE. PRG) 
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REPO  PRO 

(procedure 

in 

SURE. PRG) 

SEEKS RC 

(procedure 

in 

CREATES R. PRG) 

SELECTUN2 

(procedure 

in 

EDITUNIT. PRG) 

SELECTUNI 

SETBROWS . PRG 
SETCON. PRG 

(procedure 

in 

EDITUNIT. PRG) 

SRC  PRO 

(procedure 

in 

SURE. PRG) 

S TART C SR 
STARTHLP.  PRG 

(procedure 

in 

CREATESR. PRG) 

STARTUNI 

(procedure 

in 

EDITUNIT. PRG) 

SURECSR1 

(procedure 

in 

INSTRUCT. PRG) 

SURECSR2 

(procedure 

in 

INSTRUCT. PRG) 

SURECSR3 

(procedure 

in 

INSTRUCT. PRG) 

SURECSR5 

(procedure 

in 

INSTRUCT. PRG) 

SUREHEL1 

(procedure 

in 

INSTRUCT. PRG) 

SUREHEL2 

(procedure 

in 

INSTRUCT. PRG) 

SUREORD1 

(procedure 

in 

INSTRUCT. PRG) 

SUREORD2 

(procedure 

in 

INSTRUCT. PRG) 

SUREORD4 

(procedure 

in 

INSTRUCT. PRG) 

SUREPROl 

(procedure 

in 

INSTRUCT. PRG) 

SUREPR02 

(procedure 

in 

INSTRUCT. PRG) 

SUREPR04 

(procedure 

in 

INSTRUCT. PRG) 

SUREPR06 

(procedure 

in 

INSTRUCT. PRG) 

SUREQUI1 

(procedure 

in 

INSTRUCT. PRG) 

SUREQUI2 

(procedure 

in 

INSTRUCT. PRG) 

SUREREP1 

(procedure 

in 

INSTRUCT. PRG) 

SUREREP2 

(procedure 

in 

INSTRUCT. PRG) 

SURETAS1 

(procedure 

in 

INSTRUCT. PRG) 

SURETAS2 

(procedure 

in 

INSTRUCT. PRG) 

SURETAS3 

(procedure 

in 

INSTRUCT. PRG) 

SURETAS5 

(procedure 

in 

INSTRUCT. PRG) 

SUREUTI1 

(procedure 

in 

INSTRUCT. PRG) 

SUREUTI2 

(procedure 

in 

INSTRUCT. PRG) 

SUREUTI3 

(procedure 

in 

INSTRUCT. PRG) 

SUREUTI4 

(procedure 

in 

INSTRUCT. PRG) 

SUREUTI5 

(procedure 

in 

INSTRUCT. PRG) 

SUREUTI6 

(procedure 

in 

INSTRUCT. PRG) 

TASK  PRO 

UNCOMP RE. PRG 

(procedure 

in 

SURE. PRG) 

UTIL  PRO 

(procedure 

in 

SURE. PRG) 

VIEWUNIT 

(procedure 

in 

CREATESR. PRG) 

EDITSTR 

(procedure 

in 

EDITUNIT. PRG) 

CUST  PRO 

(procedure 

in 

CUSTUNIT. PRG) 

UN IT DATA 

(procedure 

in 

CUSTUNIT . PRG) 

STARTED 

(procedure 

in 

DELUNIT . PRG) 

DELU  PRO 

(procedure 

in 

DELUNIT . PRG) 

ENDDELU 

(procedure 

in 

DELUNIT. PRG) 

DELUAS 

(procedure 

in 

DELUNIT. PRG) 

CRET  BARI 

(procedure 

in 

INSTTASK. PRG) 

CRET  BAR2 

(procedure 

in 

INSTTASK. PRG) 

CRET  BAR 3 

(procedure 

in 

INSTTASK. PRG) 

CRET  BAR 4 

(procedure 

in 

INSTTASK. PRG) 

CRET  BAR 5 

(procedure 

in 

INSTTASK. PRG) 

CRET  BARS 

(procedure 

in 

INSTTASK. PRG) 

COPT  BARI 

(procedure 

in 

INSTTASK. PRG) 

COPT  BAR2 

(procedure 

in 

INSTTASK. PRG) 

COPT  BAR 4 

(procedure 

in 

INSTTASK. PRG) 

COPT  BAR 3 

(procedure 

in 

INSTTASK. PRG) 

EDIT  BARI 

(procedure 

in  INSTTASK. PRG) 
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EBIT  BAP.2 

(procedure 

in 

INSTTASK. PRG) 

EDIT  BAR 3 

(procedure 

in 

I NS TT ASK. PRG) 

EDIT  BAR 4 

(procedure 

in 

INSTTASK. PRG) 

EDIT  BAR 5 

(procedure 

in 

INSTTASK. PRG) 

EDIT  BAP.6 

(procedure 

in 

INSTTASK. PRG) 

EDIT  BAR 7 

(procedure 

in 

INSTTASK. PRG) 

EDIT  BAR 8 

(procedure 

in 

INSTTASK. PRG) 

DELT  BARI 

(procedure 

in 

INSTTASK. PRG) 

DELT  BAR2 

(procedure 

in 

INSTTASK. PRG) 

DELT  BAR 3 

(procedure 

in 

INSTTASK. PRG) 

STARTASK 

(procedure 

in 

CREATETA.  PRG) 

CRET  PRO 

(procedure 

in 

CREATETA. PRG) 

NAMETA 

(procedure 

in 

CREATETA. PRG) 

ASSIGNUN 

(procedure 

in 

CREATETA. PRG) 

ASSIGNU2 

(procedure 

in 

CREATETA. PRG) 

UNITQTY 

(procedure 

in 

CREATETA. PRG) 

ENDTASK 

(procedure 

in 

CREATETA. PRG) 

ENDTASKA 

(procedure 

in 

CREATETA. PRG) 

DISPTASK 

(procedure 

in 

CREATETA. PRG) 

DISPUNI 

(procedure 

in 

CREATETA. PRG) 

COPT  PRO 

(procedure 

in 

CREATETC . PRG ) 

FINDTA 

(procedure 

in 

CREATETC. PRG) 

ASSIGNNA 

(procedure 

in 

CREATETC. PRG) 

ENDCOPT 

(procedure 

in 

CREATETC. PRG) 

ENDCOPTA 

(procedure 

in 

CREATETC. PRG) 

EDIT  PRO 

(procedure 

in 

EDITTASK. PRG) 

VIEWTASK 

(procedure 

in 

EDITTASK. PRG) 

VIEWTAS2 

(procedure 

in 

EDITTASK. PRG) 

UNASS I GU 

(procedure 

in 

EDITTASK. PRG) 

UNASS I G2 

(procedure 

in 

EDITTASK. PRG) 

ENDEDIT 

(procedure 

in 

EDITTASK. PRG) 

SETBROW2 . PRG 
DELT  PRO 

(procedure 

in 

DELTASK. PRG) 

ENDDELT 

(procedure 

in 

DELTAS K. PRG) 

DELTAS 

(procedure 

in 

DELTASK. PRG) 

CREP  BARI 

(procedure 

in 

INSTPROF. PRG) 

CREP  BAR2 

(procedure 

in 

INSTPROF. PRG) 

CREP  BAR 3 

(procedure 

in 

INSTPROF. PRG) 

EDIP  BARI 

(procedure 

in 

INSTPROF. PRG) 

EDIP  BAR2 

(procedure 

in 

INSTPROF. PRG) 

EDIP  BAR3 

(procedure 

in 

INSTPROF. PRG) 

EDIP  BAR 4 

(procedure 

in 

INSTPROF. PRG) 

EDIP  BAR5 

(procedure 

in 

INSTPROF. PRG) 

EDIP  BAR6 

(procedure 

in 

INSTPROF. PRG) 

EDIP  BAR7 

(procedure 

in 

INSTPROF. PRG) 

EDIP  BAR8 

(procedure 

in 

INSTPROF. PRG) 

EDIP  BAR 9 

(procedure 

in 

INSTPROF. PRG) 

DELP  BARI 

(procedure 

in 

INSTPROF. PRG) 

DELP  BAR2 

(procedure 

in 

INSTPROF. PRG) 

DELP  BAR 3 

(procedure 

in 

INSTPROF. PRG) 

CROP  BARI 

(procedure 

in 

INSTPROF. PRG) 

CRCP  BAR2 

(procedure 

in 

INSTPROF. PRG) 

CRCP  BAR 3 

(procedure 

in 

INSTPROF. PRG) 

CRCP  BAR 4 

(procedure 

in 

INSTPROF. PRG) 

CRCP  BARS 

(procedure 

in 

INSTPROF. PRG) 

START PRO 

(procedure 

in 

CREATEPR. PRG) 

CREP  PRO 

(procedure 

in 

CREATEPR. PRG) 

NEWPROFI 

(procedure 

in 

CREATEPR. PRG) 

VTEWPROF 

(procedure 

in 

CREATEPR. PRG) 
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ENDCREP 

DISPPROF 

STARTEPR 

EDI P_PRO 

SELEPROF 

CHANGEAP 

CHANGEAC 

CHANGEI 

CHANGEIF 

CHANGECI 

CHANGEH2 

CHANGEME 

DELP_PRO 

ENDDELP 

DELPRO 

SELECTPRO 

CRCP_PRO 

NEWCUSPR 

VIEWCUSP 

EDITCUSP 

ENDCUSPR 

DELCUSPR 

DISPPRO 

ORDS_EARl 

ORDS_BAR2 

ORDS_BAR3 

ORDS_BAR4 

ORDS_BAR5 

TOMP_BARl 

TOMP_BAR2 

TOMP_BAR3 

TOMP_BAR4 

TOMP_BAR5 

TOMP_BAR6 

ORDT_BARl 

ORDT_BAR2 

ORDT_BAR3 

ORDT_BAR4 

ORDT_BAR5 

ORDT_BAR6 

ORDT_BAR7 

ORDT_BAR8 

DORD_BARl 

DORD_BAR2 

DORD_BAR3 

STRE_BAR1 

STREJBAR2 

STRE_BAR3 

STRE_BAR4 

STRE_BAR5 

STRE_BAR6 

STARTOR 

TOMP_PRO 

ORDS_PRO 

CREATEO 

VIEWORDE 

ASSIGNTA 

ENDORDR 

DISPORD 


(procedure  in  CREATEPR.'PRG) 
(procedure  in  CREATEPR . PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF . PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  DELPROF.PRG) 
(procedure  in  DELPROF.PRG) 
(procedure  in  DELPROF. PRG) 
(procedure  in  DELPROF.PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  CRECUSPR. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE . PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE . PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE . PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  INSTORDE. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
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DISP0RD2 

(procedure 

in 

CREATEOR. PRG) 

1 PRO ALL 

(procedure 

in 

CREATEOR. PRG) 

1PROONE 

(procedure 

in 

CREATEOR. PRG) 

1PR01PRI 

(procedure 

in 

CREATEOR. PRG) 

PHASEBY 

(procedure 

in 

CREATEOR. PRG) 

VIEWTOP 

(procedure 

in 

CREATEOR. PRG) 

FINDPRO 

(procedure 

in 

CREATEOR. PRG) 

DISPTAS 

(procedure 

in 

CREATEOR. PRG) 

STRE  PRO 

(procedure 

in 

EDITORDE. PRG) 

ORDT  PRO 

(procedure 

in 

EDITORDE. PRG) 

GETORDER 

(procedure 

in 

EDITORDE. PRG) 

EDITPLEN 

(procedure 

in 

EDITORDE. PRG) 

1STRALL 

(procedure 

in 

EDITORDE. PRG) 

1STRONE 

(procedure 

in 

EDITORDE. PRG) 

1STR1PRI 

(procedure 

in 

EDITORDE. PRG) 

PHASEBYS 

(procedure 

in 

EDITORDE. PRG) 

VIEWSTR 

(procedure 

in 

EDITORDE. PRG) 

DORD  PRO 

(procedure 

in 

DELORDE. PRG) 

ORDR  BARI 

(procedure 

in 

INSTREPT. PRG) 

ORDR  BAR2 

(procedure 

in 

INSTREPT. PRG) 

ORDR  BAR3 

(procedure 

in 

INSTREPT. PRG) 

ORDR  BAR4 

(procedure 

in 

INSTREPT. PRG) 

ORDR  BAR5 

(procedure 

in 

INSTREPT. PRG) 

ORDR  PRO 

(procedure 

in 

ORDEREP1 . PRG) 

OLDORD 

(procedure 

in 

ORDEREP1 . PRG) 

DISPORD3 

(procedure 

in 

ORDEREP1 . PRG) 

STARTORD 

(procedure 

in 

ORDEREP1. PRG) 

ORDREND 

(procedure 

in 

ORDEREP1 . PRG) 

SYSR  BARI 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BAR2 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BAR3 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BAR4 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BAR5 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BARS 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BAR7 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BAR 8 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BAR 9 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BA10 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BA11 

(procedure 

in 

INSTSYSR. PRG) 

SYSR  BA12 

(procedure 

in 

INSTSYSR. PRG) 

STARTSRP 

(procedure 

in 

SYSREP . PRG) 

PRIN  PRO 

(procedure 

in 

SYSREP . PRG) 

SYSR  PRO 

(procedure 

in 

SYSREP. PRG) 

SRCRPT 

(procedure 

in 

SYSREP. PRG) 

SRCLST 

(procedure 

in 

SYSREP. PRG) 

SRCLINR 

(procedure 

in 

SYSREP. PRG) 

LINLST 

(procedure 

in 

SYSREP. PRG) 

UNITRPT 

(procedure 

in 

SYSREP. PRG) 

UNITLINR 

(procedure 

in 

SYSREP. PRG) 

PROFILER 

(procedure 

in 

SYSREP. PRG) 

TASKORGR 

(procedure 

in 

SYSREP. PRG) 

TASKUNIT 

(procedure 

in 

SYSREP. PRG) 

ORDERRPT 

(procedure 

in 

SYSREP. PRG) 

ORDERTAS 

(procedure 

in 

SYSREP. PRG) 

ORDTASUN 

(procedure 

in 

SYSREP. PRG) 

SYSREND 

(procedure 

in 

SYSREP. PRG) 

GET SRC 

(procedure 

in 

SYSREP. PRG) 

DISPSRC 

(procedure 

in 

SYSREP. PRG) 

LISTSRC 

(procedure 

in 

SYSREP. PRG) 
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LISTPROF 

(procedure 

in 

SYSREP . PRG) 

UNITLST 

(procedure 

in 

SYS REP . PRG) 

UNITLIN 

(procedure 

in 

SYSREP. PRG) 

PROFLST 

(procedure 

in 

SYSREP. PRG) 

TASKLST 

(procedure 

in 

SYSREP. PRG) 

TASKUNI 

(procedure 

in 

SYSREP. PRG) 

ORDERTP 

(procedure 

in 

SYSREP. PRG) 

ORDERLST 

(procedure 

in 

SYSREP. PRG) 

ORDERTUP 

(procedure 

in 

SYSREP. PRG) 

RESTORE 

(procedure 

in 

RESTOREF. PRG) 

GETSTATU 

(procedure 

in 

RESTOREF. PRG) 

PHEL  BARI 

(procedure 

in 

INSTPHLP . PRG) 

PHEL  BAR2 

(procedure 

in 

INSTPHLP . PRG) 

PHEL  BAR 3 

(procedure 

in 

INSTPHLP. PRG) 

PHEL  PRO 

(procedure 

in 

PRNTHELP. PRG) 

PRNONEH 

(procedure 

in 

PRNTHELP. PRG) 

PRNALLH 

(procedure 

in 

PRNTHELP. PRG) 

ENDPHEL 

(procedure 

in 

PRNTHELP. PRG) 

BROWHELP 

(procedure 

in 

PRNTHELP. PRG) 

PRNTMEMO. PRG 

STARTPLR 

(procedure 

in 

PRINTPOL. PRG) 

DETA  PRO 

(procedure 

in 

PRINTPOL. PRG) 

POLCALC 

(procedure 

in 

PRINTPOL. PRG) 

PUNITPOL 

(procedure 

in 

PRINTPOL. PRG) 

PTASKPOL 

(procedure 

in 

PRINTPOL. PRG) 

PORDEPOL 

(procedure 

in 

PRINTPOL. PRG) 

LINPOL 

(procedure 

in 

PRINTPOL. PRG) 

REPORTHD 

(procedure 

in 

PRINTPOL. PRG) 

TFHEAD 

(procedure 

in 

PRINTPOL. PRG) 

DETA  BARI 

(procedure 

in 

PRINTPOL. PRG) 

DETA  BAR2 

(procedure 

in 

PRINTPOL. PRG) 

DETA  BAR3 

(procedure 

in 

PRINTPOL. PRG) 

DETA  EAR4 

(procedure 

in 

PRINTPOL. PRG) 

PRIN  BARI 

(procedure 

in 

PRINTPOL. PRG) 

PRIN  BAR2 

(procedure 

in 

PRINTPOL. PRG) 

PRIN  BAR3 

(procedure 

in 

PRINTPOL. PRG) 

PRIN  BAR 4 

(procedure 

in 

PRINTPOL. PRG) 

PRIN  BAR5 

(procedure 

in 

PRINTPOL. PRG) 

AMMOCALC 

(procedure 

in 

PRINTAMM. PRG) 

PUNITAMM 

(procedure 

in 

PRINTAMM. PRG) 

PTASKAMM 

(procedure 

in 

PRINTAMM. PRG) 

PORDEAMM 

(procedure 

in 

PRINTAMM. PRG) 

LINAMM 

(procedure 

in 

PRINTAMM. PRG) 

OTHECALC 

(procedure 

in 

PRINTOTH . PRG) 

PUNITOTH 

(procedure 

in 

PRINTOTH. PRG) 

PTASKOTH 

(procedure 

in 

PRINTOTH. PRG) 

PORDEOTH 

(procedure 

in 

PRINTOTH. PRG) 

OTHERCAL 

(procedure 

in 

CALCOTHE. PRG) 

Procedure  files: 
INSTRUCT. PRG 
SURE . PRG 
INSTUNIT . PRG 
CREATESR. PRG 
EDITUNIT. PRG 
CUSTUNIT. PRG 
DELUNIT . PRG 
INSTTASK . PRG 
CREATETA. PRG 


376 


CREATETC.  PRG 
EDITTASK. PRG 
DELTASK. PRG 
INSTPROF. PRG 
CREATEPR. PRG 
EDITPROF. PRG 
DELPROF. PRG 
CRECUSPR. PRG 
INSTORDE. PRG 
CREATEOR. PRG 
EDITORDE. PRG 
DELORDE . PRG 
INSTREPT. PRG 
ORDEREP1 . PRG 
INSTSYSR. PRG 
SYSREP . PRG 
RESTOREF . PRG 
INSTPHLP . PRG 
PRNTHELP . PRG 
PRINTPOL . PRG 
PRINTAMM. PRG 
PRINTOTH . PRG 
CALCPOL. PRG 
CALCAMMO . PRG 
CALCOTHE. PRG 


Databases : 
&FILEVAR. DBF 
&FILEVAR2 . DBF 
AMMOEST . DBF 
AMMORATE . DBF 
CLASS_I . DBF 
CL_OTHER. DBF 
CPROFILE. DBF 
CSRCLINQ . DBF 
CSRCLIST . DBF 
DODIC . DBF 
ECHELONS . DBF 
HELP. DBF 
HELP . DBT 
INTENSTY. DBF 
LINLIST . DBF 
MEDICAL. DBF 
ORDERLST . DBF 
ORDERTAS . DBF 
POLEST. DBF 
POLRATE. DBF 
POLWGT . DBF 
POSTURE. DBF 
PROFILES. DBF 
SRCLINQT . DBF 
SRCLIST . DBF 
TASKORG. DBF 
TEMP. DBF 
TTEMP . DBF 
TTTEMP . DBF 
WATER. DBF 


Multiple  index  files 


&FILEVAR 
AMMOEST . MDX 
AMMO RATE . MDX 
CLASS_I .MDX 
CL_OTHER . MDX 
C PRO FILE . MDX 
CSRCLINQ . MDX 
CSRCLI ST . MDX 
DODIC.MDX 
ECHELONS. MDX 
HELP. MDX 
INTENSTY.MDX 
LINLIST . MDX 
MEDICAL. MDX 
ORDERLST . MDX 
ORDERTAS . MDX 
POLEST.MDX 
POLRATE.MDX 
POLWGT . MDX 
PROFILES .MDX 
SRCLINQT .MDX 
SRCLIST . MDX 
TASKORG.MDX 
WATER. MDX 


Memory  files: 
VARIABLE . MEM 


System:  SURE  2.0 
Database  Structure  Summary 


29  databases  in  the  system 
HELP. DBF 

CSRCLIST . DBF 
TEMP. DBF 
SRCLIST. DBF 
SRCLINQT . DBF 
CSRCLINQ. DBF 
TTEMP . DBF 
TTTEMP . DBF 
ECHELONS. DBF 
LINLIST . DBF 
AMMORATE . DBF 
POLRATE. DBF 
TASKORG. DBF 
ORDERTAS . DBF 
MEDICAL. DBF 
WATER. DBF 
CLASS_I . DBF 
POSTURE. DBF 
INTENSTY. DBF 
PROFILES. DBF 
CPROFILE . DBF 
ORDERLST. DBF 
CL__OTHER.  DBF 
POLWGT. DBF 
DODIC. DBF 
POLEST . DBF 
AMMOEST . DBF 
&FILEVAR.  DBF 
&  FI LEVAR2 . DBF 


Structure  for  - 

database  : 

HELP. 

DBF 

Number 

of  data 

records  : 

28 

Last 

updated  : 

04/10/94 

at 

13:49 

Field 

Field  name  Type 

Width 

Dec 

Start 

1 

PROGRAM 

Character 

8 

1 

2 

NOTES 

Memo 

10 

9 

3 

SUBJECT 

Character 

60 

19 

4 

MENU 

Memo 

10 

79 

**  Total  **  99 


End 

8 

18 

78 

88 


This  database  is  associated  with  the  memo  file:  HELP . DBT 

This  database  is  associated  with  index  file/tag(s): 

:  PROGRAM  (is  an  index  tag) 

:  SUBJECT  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 

:  HELP .MDX 


Used  by:  STARTHLP . PRG 
:  REINDX . PRG 


Structure  for  database  :  CSRCLIST.DBF 
Number  of  data  records  :  3 


Last  updated  :  04/16/94  at  10:49 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

SRC 

Character 

9 

1 

9 

2 

UNIT  DESIG 

Character 

38 

10 

47 

3 

STRENGTH 

Numeric 

6 

48 

53 

4 

UNITNAME 

Character 

60 

54 

113 

5 

TASKORG 

Logical 

1 

114 

114 

6 

SUBORDINAT 

Logical 

1 

115 

115 

7 

TASKORGC 

Logical 

1 

116 

116 

8 

ECHELON 

Character 

9 

117 

125 

9 

QTY 

Numeric 

2 

126 

127 

**  Total  ** 

128 

This  database  is 

associated  with  index  file/tag(s) 

:  SRC  (is 

an  index  tag) 

:  UNIT  DESIG  (is  an  index  tag) 

:  STRENGTH 

(is  an  index  tag) 

:  UNITNAME 

(is  an  index  tag) 

:  ECHELON 

(is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 
:  CSRCLIST.MDX 

Used  by:  REINDX.PRG 
:  BACKDBF. PRG 
:  STARTCSR 
:  STARTUNI 
:  STARTED 
:  STARTASK 
:  CALCPOL . PRG 
:  CALCAMMO .  PRG 
:  CALCOTHE . PRG 
:  STARTSRP 
:  STARTPLR 


(procedure  in  CREATESR. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  DELUNIT . PRG) 
(procedure  in  CREATETA. PRG) 


(procedure  in  SYSREP.PRG) 
(procedure  in  PRINTPOL. PRG) 


Structure  for  database  :  TEMP. DBF 
Number  of  data  records  :  0 


Last  updated  :  04/16/94  at  10:57 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

SRC 

Character 

9 

1 

9 

2 

UNIT  DESIG 

Character 

38 

10 

47 

3 

STRENGTH 

Numeric 

6 

48 

53 

4 

UNITNAME 

Character 

60 

54 

113 

5 

TASKORG 

Logical 

1 

114 

114 

6 

SUBORDINAT 

Logical 

1 

115 

115 

7 

TASKORGC 

Logical 

1 

116 

116 

8 

ECHELON 

Character 

9 

117 

125 

9 

QTY 

Numeric 

2 

126 

127 

**  Total  **  128 


NO  associated  index  files 
NO  associated  multiple  indexes 


Used  by 


STARTCSR 

(procedure 

in 

UN IT DATA 

(procedure 

in 

ASSIGNUN 

(procedure 

in 

ASSIGNU2 

(procedure 

in 

ENDTASK 

(procedure 

in 

ENDTASKA 

(procedure 

in 

ENDCOPT 

(procedure 

in 

ENDCOPTA 

(procedure 

in 

NEWPROFI 

(procedure 

in 

NEWCUSPR 

(procedure 

in 

CREATEO 

(procedure 

in 

ASSIGNTA 

(procedure 

in 

CREATES?..  PRG) 
CUSTUNIT . PRG) 
CREATETA. PRG) 
CREATETA. PRG) 
CREATETA. PRG) 
CREATETA. PRG) 
CREATETC. PRG) 
CREATETC. PRG) 
CREATEPR. PRG) 
CRECUSPR. PRG) 
CREATEOR. PRG) 
CREATEOR. PRG) 


K 


Structure  for  database  :  SRCLIST . DBF 
Number  of  data  records  :  997 


Last  updated  :  03/31/94  at  15:04 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

SRC 

Character 

9 

1 

9 

2 

UNIT  DESIG 

Character 

38 

10 

47 

3 

STRENGTH 

Numeric 

6 

48 

53 

4 

HIDE 

Logical 

1 

54 

54 

5 

QTY 

Numeric 

2 

55 

56 

**  Total  **  57 


This  database  is  associated  with  index  file/tag (s): 

:  SRC  (is  an  index  tag) 

:  UNIT_DESIG  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s) : 

:  SRCLIST .MDX 

Used  by:  REINDX. PRG 

:  STARTCSR  (procedure  in  CREATESR. PRG) 

:  STARTUNI  (procedure  in  EDITUNIT. PRG) 

:  STARTSRP  (procedure  in  SYSREP.PRG) 


Structure  for  database  :  SRCLINQT. DBF 
Number  of  data  records  :  21622 


Last  updated  :  03/31/94  at  15:01 


Field  name 

Type 

Width 

Dec 

Start 

End 

SRC 

Character 

9 

1 

9 

LIN 

Character 

6 

10 

15 

QUANTITY 

Numeric 

6 

16 

21 

**  Total  **  22 
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This  database  is  associated  with  index  file/tag(s): 

:  SRC  (is  an  index  tag) 

:  LIN  (is  an  index  tag) 

:  UNIQUELI  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 

:  SRCLINQT . MDX 

Used  by:  REINDX.PRG 

:  STARTCSR  (procedure  in  CREATESR. PRG) 

:  STARTUNI  (procedure  in  EDITUNIT . PRG) 

:  START SRP  (procedure  in  SYSREP.PRG) 


4 


Structure  for  database  :  CSRCLINQ. DBF 
Number  of  data  records  :  108 


Last  updated  :  04/16/94  at  10:49 


Field 

Field  name 

Type 

Width 

Dec  Start 

End 

1 

SRC 

Character 

9 

1 

9 

2 

LIN 

Character 

6 

10 

15 

3 

QUANTITY 

Numeric 

6 

16 

21 

4 

UNITNAME 

Character 

60 

22 

81 

**  Total  ** 

82 

This  database  is  . 

associated  with  index 

file/tag (s) : 

:  SRC  (is 

an  index  tag) 

:  LIN  (is 

an  index  tag) 

:  UNITNAME 

(is  an  index 

tag) 

This  database  is  associated  with  multiple  index  file(s): 
:  CSRCLINQ. MDX 


Used  by:  REINDX.PRG 
:  BACKDBF. PRG 
:  STARTCSR 
:  STARTUNI 
:  STARTED 
:  CALCPOL . PRG 
:  CALCAMMO . PRG 
:  CALCOTHE . PRG 
:  STARTSRP 
:  STARTPLR 


(procedure  in  CREATESR. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  DELUNIT.PRG) 


(procedure  in  SYSREP.PRG) 
(procedure  in  PRINTPOL. PRG) 


Structure  for  database  :  TTEMP . DBF 
Number  of  data  records  :  21 


Last  updated  :  04/16/94  at  10:49 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

SRC 

Character 

9 

1 

9 

2 

LIN 

Character 

6 

10 

15 

3 

QUANTITY 

Numeric 

6 

16 

21 

4 

UNITNAME 

Character 

60 

22 

81 

**  Total  **  82 


382 


NO  associated  index  files 


NO  associated  multiple  indexes 


COPYLINS 

(procedure 

in 

ASSIGNUN 

(procedure 

in 

ASSIGNU2 

(procedure 

in 

ENDTASK 

(procedure 

in 

ENDTASKA 

(procedure 

in 

ASSIGNTA 

(procedure 

in 

CREATESR. PRG) 

CREATETA. PRG) 
CREATETA. PRG) 
CREATETA. PRG) 
CREATETA. PRG) 
CREATEOR. PRG) 


't 


Structure  for  database  :  TTTEMP . DBF 
Number  of  data  records  :  21 


Last  updated  :  04/16/94  at  10:49 


Field  name 

Type 

Width 

Dec 

Start 

End 

SRC 

Character 

9 

1 

9 

LIN 

Character 

6 

10 

15 

QUANTITY 

Numeric 

6 

16 

21 

**  Total  **  22 


NO  associated  index  files 
NO  associated  multiple  indexes 


Used  by:  COPYLINS 


(procedure  in  CREATESR. PRG) 


Structure  for  database  :  ECHELONS . DBF 
Number  of  data  records  :  4 

Last  updated  :  01/28/94  at  21:23 
Field  Field  name  Type  Width  Dec  Start  End 

1  ECHELON  Character  21  1  21 

**  Total  **  22 


This  database  is  associated  with  index  file/tag(s): 

:  ECHELON  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 

:  ECHELONS. MDX 

Used  by:  REINDX . PRG 

:  ADDDATA  (procedure  in  CREATESR. PRG) 

:  STARTUNI  (procedure  in  EDITUNIT. PRG) 

:  CHANGEEH  (procedure  in  EDITUNIT . PRG) 

:  CALCOTHE. PRG 


Structure  for  database  :  LINLIST . DBF 
Number  of  data  records  :  471 


383 


Last  updated  :  03/25/94  at 

8:35 

Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

LIN 

Character 

6 

1 

6 

2 

NOMEN 

Character 

64 

7 

70 

3 

AMMO  RATE 

Logical 

1 

71 

71 

4 

POL  RATE 

Logical 

1 

72 

72 

5  QTY 
**  Total  ** 

Numeric 

4 

77 

73 

76 

This 

database  is  associated 
:  LIN  (is  an  index 

with 

tag) 

index  file/tag i 

(s)  : 

This 

database  is  associated 
:  LINLIST.MDX 

with 

multiple  index 

file (s) : 

Used 

by:  REINDX . PRG 

:  STARTUNI  (procedure  in  EDITUNIT . PRG) 


Structure  for  database  :  AMMORATE.DBF 


Number  of  data  records  :  608 


Last  updated  :  03/31/94 

at  14: 

56 

Field 

Field  name 

Type  Width 

Dec 

Start 

End 

1 

LIN 

Character 

9 

1 

9 

2 

LIN  NOMEN 

.  Character 

39 

10 

48 

3 

DODIC 

Character 

8 

49 

56 

4 

DODIC  NOM 

Character 

29 

57 

85 

5 

HVY1D 

Numeric 

9 

2 

86 

94 

6 

HVYSD 

Numeric 

9 

2 

95 

103 

7 

HVY1A 

Numeric 

9 

2 

104 

112 

8 

HVYSA 

Numeric 

9 

2 

113 

121 

9 

HVYP 

Numeric 

9 

2 

122 

130 

10 

WEIGHT 

Numeric 

10 

2 

131 

140 

11 

CUBE 

Numeric 

8 

3 

141 

148 

12 

CBT  LOAD 

Numeric 

8 

149 

156 

**  Total  ** 

157 

This  database  is 

associated  with 

index  file/tag(s): 

:  LIN  (is 

an  index  tag) 

:  DODIC  (is  an  index  tag) 

This  database  is  , 

associated  with  multipl 

e  index  file (s) : 

:  AMMORATE 

.  MDX 

Used  by 

:  REINDX. PRG 

:  STARTUNI 

(procedure 

in  EDITUNIT. 

PRG) 

:  CALCAMMO 

.PRG 

:  STARTSRP 

(procedure 

in  SYSREP . PRG) 

:  START PLR 

(procedure 

in  PRINTPOL. 

PRG) 

Structure  for  database  :  POLRATE . DBF 
Number  of  data  records  :  467 


Last  updated  :  03/31/94  at  14:57 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

IDLE  AVG 

Numeric 

12 

3 

1 

12 

2 

CC 

Numeric 

8 

3 

13 

20 

3 

SR 

Numeric 

8 

3 

21 

28 

4 

FT_CAP 

Numeric 

9 

2 

29 

37 

5 

LIN 

Character 

9 

38 

46 

6 

LIN  NOMEN 

Character 

39 

47 

85 

7 

EQUIP  CAT 

Character 

4 

86 

89 

8 

POL  TYPE 

Character 

3 

90 

92 

**  Total  ** 

93 

This 

database  is  associated 

with 

index  file/tag(s): 

:  LIN  (is  an  index 

tag) 

:  POL_TYPE  (is  an  index 

tag) 

This 

database  is  associated 

with  multiple  index 

file (s) : 

:  POLRATE . MDX 

Used 

by:  REINDX.PRG 

:  STARTUNI 

(procedure 

in 

EDITUNIT . PRG) 

:  CALCPOL . PRG 

:  STARTSRP 

(procedure 

in 

SYSREP . PRG) 

:  STARTPLR 

(procedure 

in 

PRINTPOL . PRG) 

Structure  for  database  :  TASKORG. DBF 
Number  of  data  records  :  0 


Last  updated  :  04/15/94  at  19:47 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

TASKORGNAM 

Character 

60 

1 

60 

2 

UNITNAME 

Character 

60 

61 

120 

3 

CHANGES TAT 

Logical 

1 

121 

121 

4 

CHANGESTA2 

Logical 

1 

122 

122 

5 

QTY 

Numeric 

2 

123 

124 

6 

SRC 

Character 

9 

125 

133 

**  Total  **  134 


This  database  is  associated  with  index  file/tag(s): 

:  TASKORGNAM  (is  an  index  tag) 

:  UNITNAME  (is  an  index  tag) 

:  UNIQUEUN  (is  an  index  tag) 

:  UNIQUETA  (is  an  index  tag) 

:  SRC  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 

:  TASKORG. MDX 

Used  by:  REINDX.PRG 
:  BACKDBF. PRG 

:  STARTED  (procedure  in  DELUNIT . PRG) 

:  STARTASK  (procedure  in  CREATETA. PRG) 

:  STARTOR  (procedure  in  CREATEOR. PRG) 

:  CALC POL. PRG 
:  CALCAMMO . PRG 


* 


V 


385 


CALCOTHE. PRG 

STARTS ?P  Procedure  in  3Y3RSP. PRG) 

STARTPLR  (procedure  in  PRINTPOL. PRG) 


Structure  for  database  :  ORDEi 
Number  of  data  records  : 


Field 

Last  updated  :  04/ 
Field  name  Type 

1 

NUMBER 

Character 

2 

TASKORGNAM 

Character 

3 

PHASE 

Numeric 

4 

PROFILENAM 

Character 

5 

STRENGTH 

Numeric 

6 

CHANGESTAT 

Logical 

**  Total  ** 

.TA5  .DBF 

0 

/94  at  19:46 

Width  Dec 

Start 

End 

8 

1 

8 

60 

9 

68 

1 

69 

69 

20 

70 

89 

3 

90 

92 

1 

93 

93 

94 


This  database  is  associated  with  index  file/tag (s): 
:  NUMBER  (is  an  index  tag) 

:  TASKORGNAM  (is  an  index  tag) 

:  TASKPKAS  (is  an  index  tag) 

:  PROFILENAM  (is  an  index  tag) 

:  TASKPHASE  (is  an  index  tag) 

:  UNIQUENU  (is  an  index  tag) 

:  UNIQUETA  (is  an  index  tag) 

:  PHASE  (is  an  index  tag) 

:  UNIQUETN  (is  an  index  tag) 

:  PHASETAS  (is  an  index  tag) 


This  database  is  associated  with  multiple  index  file(s): 
:  ORDERTAS . MDX 


Used  by:  DELORDE. PRG 
:  REINDX . PRG 
:  BACKDBF. PRG 
:  STARTED 
:  STARTOR 
:  CALCPOL. PRG 
:  CALC AMMO . PRG 
:  CALCOTHE. PRG 
:  STARTS RP 
:  STARTPLR 


(procedure  in  DELUNIT.PRG) 
(procedure  in  CREATEOR. PRG) 


(procedure  in  SYSREP.PRG) 
(procedure  in  PRINTPOL . PRG) 


Structure  for  database  :  MEDICAL. DBF 
Number  of  data  records  :  12 


Last  updated  :  03/08/94  at  16:35 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

ECHELON 

Character 

14 

1 

14 

2 

INTENSITY 

Character 

9 

15 

23 

3 

PLAN  FACT 

Numeric 

4 

2 

24 

27 

4 

MED  NAME 

Character 

25 

28 

52 

**  Total  ** 

53 

★  ★ 


ag  (  a  !  : 


:  MEu_NAMt  (is  an  index  tag) 
:  ECHELON  (is  an  index  tag) 


This  database  is  associated  with 
:  MEDICAL . MDX 

Used  by:  REINDX.PRG 
:  START PRO 
:  STARTS??. 

:  CALCOTHE . PRG 
:  START PLR 


multiple  index  file  ( s ) : 

(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 

(procedure  in  PRINTPOL . PRG) 


Structure  for  database  :  WATER. DBF 
Number  of  data  records  :  20 


Last  updated  :  03/08/94  at  16:35 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

ECHELON 

Character 

9 

1 

9 

r> 

c. 

CLIMATE 

Character 

9 

10 

18 

3 

GAL_MAN  DA 

Numeric 

4 

1 

19 

22 

4 

WATER  NAME 

Character 

19 

23 

41 

**  Total  **  42 


This  database  is  associated  with  index  file/tag(s): 

:  ECHELON  (is  an  index  tag) 

:  WATER_NAME  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 
:  WATER. MDX 


Used  by:  REINDX . PRG 
:  STARTPRO 
:  STARTEPR 
:  CALCOTHE. PRG 
:  STARTPLR 


(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 

(procedure  in  PRINTPOL . PRG) 


Structure  for  database  :  CLASS_I.DBF 
Number  of  data  records  :  6 


Last  updated  :  04/10/94  at  19:06 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

RATION 

Character 

10 

1 

10 

2 

PLAN  FACT 

Numeric 

5 

3 

11 

15 

3 

UNIT 

Character 

12 

16 

27 

4 

UNIT  QTY 

Numeric 

9 

28 

36 

5 

TASK  ORG  Q 

Numeric 

9 

37 

45 

6 

ORDER  QTY 

Numeric 

10 

46 

55 

7 

ORDER  TTL 

Numeric 

10 

56 

65 

**  Total  ** 

66 

This  database  is  associated  with  index  file/tag(s): 
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:  RATION  (is  an  index  tag) 


This  database  is  associated  with  multiple  index  file(s): 
:  CLASS  I.MDX 


Used  by:  REINDX.PRG 
:  STARTPRO 
:  STARTEPR 
:  START PLR 


(procedure  in 
(procedure  in 
(procedure  in 


CREATEPR. PRG) 
EDITPROF. PRG) 
PRINTPOL. PRG) 


Structure  for  database  :  POSTURE. DBF 
Number  of  data  records  :  6 

Last  updated  :  03/08/94  at  16:35 
Field  Field  name  Type  Width  Dec  Start  End 

1  POSTURE  Character  25  1  25 

**  Total  **  26 


NO  associated  index  files 

NO  associated  multiple  indexes 

Used  by:  STARTPRO 
:  STARTEPR 
:  CALCPOL. PRG 
:  CALCAMMO . PRG 
:  CALCOTHE . PRG 
:  STARTPLR 


(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 


(procedure  in  PRINTPOL. PRG) 


* 


4 


Structure  for  database  :  INTENSTY. DBF 
Number  of  data  records  :  5 


Last  updated  :  03/30/94  at  7:30 


Field 

Field  name 

Type 

Width 

Dec 

Start 

1 

INTENSITY 

Character 

8 

1 

2 

FACTOR 

Numeric 

5 

2 

9 

**  Total  ** 

14 

End 

8 

13 


NO  associated  index  files 


This  database  is  associated  with  multiple  index  file(s): 
:  INTENSTY. MDX 


Used  by:  BACKDBF. PRG 
:  STARTPRO 
:  STARTEPR 
:  CALCPOL. PRG 
:  CALCAMMO. PRG 
:  CALCOTHE. PRG 
:  STARTPLR 


(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 


(procedure  in  PRINTPOL. PRG) 


388 


Structure  for  database  :  PROFILES. DBF 
Number  of  data  records  :  12 


Last  updated  :  03/29/94  at  9:14 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

PROFILE 

Character 

15 

1 

15 

2 

AE  HRS 

Numeric 

5 

1 

16 

20 

3 

AV  HRS 

Numeric 

5 

1 

21 

25 

4 

CE  HRS 

Numeric 

5 

1 

26 

30 

5 

GN  HRS 

Numeric 

5 

1 

31 

35 

6 

HG  HRS 

Numeric 

5 

1 

36 

40 

7 

MH  HRS 

Numeric 

5 

1 

41 

45 

8 

OV  HRS 

Numeric 

5 

1 

46 

50 

9 

SG  HRS 

Numeric 

5 

1 

51 

55 

10 

SV  HRS 

Numeric 

5 

1 

56 

60 

11 

WV  KMS 

Numeric 

5 

1 

61 

65 

12 

TV  TI  HRS 

Numeric 

5 

1 

66 

70 

13 

TV  CC  HRS 

Numeric 

5 

1 

71 

75 

14 

TV  SR  HRS 

Numeric 

5 

1 

76 

80 

15 

CUSTOM 

Logical 

1 

81 

81 

**  Total  ** 

82 

This  database  is  associated  with  index  file/tag(s): 

:  PROFILE  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 
:  PROFILES. MDX 


Used  by:  REINDX.PRG 
:  BACKDBF. PRG 
:  START PRO 
:  STARTEPR 
:  CALCPOL. PRG 
:  CALCAMMO .  PRG 
:  CALCOTHE . PRG 
:  STARTPLR 


(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 


(procedure  in  PRINTPOL. PRG) 


Structure  for  database  :  CPROFILE. DBF 
Number  of  data  records  :  0 


Last  updated  :  04/15/94  at 

19:50 

Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

PROFILE 

Character 

15 

1 

15 

2 

INTENSITY 

Character 

8 

16 

23 

3 

FACTOR 

Numeric 

5 

2 

24 

28 

4 

PROFILENAM 

Character 

20 

29 

48 

5 

PROFILEDES 

Character 

50 

49 

98 

6 

POSTURE 

Character 

25 

99 

123 

7 

CL  I  1 

Character 

8 

124 

131 

8 

CL  I  2 

Character 

8 

132 

139 

9 

CL  I  3 

Character 

8 

140 

147 

10 

CL  I  HI 

Logical 

1 

148 

148 

11 

CL  I  H2 

Logical 

1 

149 

149 

12 

MED  NAME 

Character 

25 

150 

174 

13 

WATER  NAME 

Character 

19 

175 

193 

14 

CDE 

Character 

4 

194 

197 

389 


**  Total  ** 


198 


♦ 


> 


This  database  is  associated  with  index  file/tag(s): 
:  PROFILE  (is  an  index  tag) 

:  INTENSITY  (is  an  index  tag) 

:  PROFILENAM  (is  an  index  tag) 

:  PROFILEDES  (is  an  index  tag) 

:  POSTURE  (is  an  index  tag) 

:  MED_NAME  (is  an  index  tag) 

:  WATER_NAME  (is  an  index  tag) 

:  ODE  (is  an  index  tag) 


This  database  is  associated  with  multiple  index  file(s): 


Used  by 


CPROFILE . MDX 

REINDX . PRG 

BACKDBF. PRG 

STARTED 

(procedure 

START PRO 

(procedure 

STARTEPR 

(procedure 

STARTOR 

(procedure 

CALCPOL. PRG 

CALCAMMO . PRG 

CALCOTHE. PRG 

STARTSRP 

(procedure 

STARTPLR 

(procedure 

in  DELUNIT . PRG) 
in  CREATEPR. PRG) 
in  EDITPROF. PRG) 
in  CREATEOR. PRG) 


in  SYSREP . PRG) 
in  PRINTPOL. PRG) 


Structure  for  database  :  ORDERLST . DBF 
Number  of  data  records  :  0 


Last  updated  :  04/15/94  at  19:47 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

NUMBER 

Character 

8 

1 

8 

2 

NAME 

Character 

50 

9 

58 

3 

DESCRIPTIO 

Character 

60 

59 

118 

4 

PHASES 

Numeric 

1 

119 

119 

5 

PHASE1LEN 

Numeric 

5 

2 

120 

124 

6 

PHASE2LEN 

Numeric 

5 

2 

125 

129 

7 

PHASE3LEN 

Numeric 

5 

2 

130 

134 

8 

PHASE4LEN 

Numeric 

5 

2 

135 

139 

9 

PHASE5LEN 

Numeric 

5 

2 

140 

144 

10 

PHASE6LEN 

Numeric 

5 

2 

145 

149 

11 

PHASE7LEN 

Numeric 

5 

2 

150 

154 

12 

PHASE8LEN 

Numeric 

5 

2 

155 

159 

13 

PHASE9LEN 

Numeric 

5 

2 

160 

164 

**  Total  ** 

165 

This  database  is  associated  with  index 

file/ tag (s) : 

:  NUMBER  (is  an  index  tag) 

:  NAME  (is  an  index  tag) 

:  DESCRIPTIO  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 
:  ORDERLST. MDX 


390 


Used  by:  DELORDE. PRG 
:  REINDX . PRG 
:  BACKDBF. PRG 
:  STARTOR 
:  STARTORD 
:  CALCPOL. PRG 

:  CALCAMMO. PRG 
:  CALCOTHE . PRG 
:  STARTSRP 
:  STARTPLR 


(procedure  in  CREATEOR. PRG) 
(procedure  in  ORDEREP1 . PRG) 


(procedure  in  SYSREP.PRG) 
(procedure  in  PRINTPOL. PRG) 


Structure  for  database  :  CL_OTHER. DBF 
Number  of  data  records  :  2 


Last  updated  :  04/12/94  at  21:59 

Field 

Field  name 

Type 

Width  Dec 

Start 

End 

1 

NUMBER 

Character 

8 

1 

8 

2 

UNITNAME 

Character 

60 

9 

68 

3 

TASKORGNAM 

Character 

60 

69 

128 

4 

PHASE 

Numeric 

1 

129 

129 

5 

PROFILENAM 

Character 

20 

130 

149 

6 

CL  I  QTY 

Numeric 

9 

150 

158 

7 

H20  QTY 

Numeric 

9 

159 

167 

8 

CL  IVBQTY 

Numeric 

9 

168 

176 

9 

CL  IVCQTY 

Numeric 

9 

177 

185 

10 

CL  VTII  QT 

Numeric 

9 

186 

194 

11 

QTY 

Numeric 

2 

195 

196 

12 

SRC 

Character 

9 

197 

205 

13 

STRENGTH 

Numeric 

6 

206 

211 

**  Total  ** 

212 

This  database  is  associated  with  index  file/tag(s): 

:  UNITNAME  (is  an  index  tag) 

:  TASKORGNAM  (is  an  index  tag) 

:  PROFILENAM  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 

:  CL_OTHER.MDX 

Used  by:  REINDX. PRG 

:  STARTORD  (procedure  in  ORDEREP1 . PRG) 

:  CALCOTHE. PRG 

:  STARTPLR  (procedure  in  ERINTPOL. PRG) 


A 


Structure  for  database  :  POLWGT . DBF 
Number  of  data  records  :  3 


Last  updated  :  02/27/94  at  12:39 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

POL  TYPE 

Character 

3 

1 

3 

2 

LBS  GAL 

Numeric 

9 

3 

4 

12 

3 

CALC  QTY 

Numeric 

7 

13 

19 

**  Total  **  20 
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This  database  is  associated  with  index  fiie/tagfs): 

:  POL_TYPE  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 

:  POLWGT.MDX 

Used  by:  REINDX.PRG 
:  CALC POL. PRG 

:  STARTPLR  (procedure  in  PRINTPOL . PRG) 


Structure  for  database  :  DODIC.DBF 
Number  of  data  records  :  184 


Last  updated  :  04/10/94  at  19:37 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

DODIC 

Character 

8 

1 

8 

2 

DODIC  NOM 

Character 

29 

9 

37 

3 

WEIGHT 

Numeric 

10 

2 

38 

47 

4 

CUBE 

Numeric 

8 

3 

48 

55 

5 

CALC  QTY 

Numeric 

10 

56 

65 

6 

CBT  LOADQT 

Numeric 

9 

66 

74 

7 

TASKORG  QT 

Numeric 

11 

75 

85 

8 

ORDER  QT 

Numeric 

12 

86 

97 

9 

ORDER  QTTL 

Numeric 

12 

98 

109 

10 

TASKORG  CB 

Numeric 

11 

110 

120 

11 

ORDER  CB 

Numeric 

12 

121 

132 

12 

ORDER  CBTL 

Numeric 

12 

133 

144 

13 

UNIT  QT 

Numeric 

11 

145 

155 

14 

UNIT  CB 

Numeric 

11 

156 

166 

**  Total  ** 

167 

This  database  is  associated  with  index 

file/tag (s) : 

:  DODIC  (is 

;  an  index 

tag) 

This  database  is  associated  with  multiple  index 

file (s) : 

:  DODIC.MDX 


Used  by:  REINDX.PRG 

:  CALCAMMO . PRG 

:  STARTPLR  (procedure  in  PRINTPOL. PRG) 


Structure  for  database  :  POLEST. DBF 
Number  of  data  records  :  139 


Last  updated  :  04/12/94  at  21:58 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

NUMBER 

Character 

8 

1 

8 

2 

UNITNAME 

Character 

60 

9 

68 

3 

TASKORGNAM 

Character 

60 

69 

128 

4 

PHASE 

Numeric 

1 

129 

129 

5 

PARENT  UNI 

Character 

60 

130 

189 

6 

LIN 

Character 

6 

190 

195 

7 

QUANTITY 

Numeric 

6 

196 

201 

8 

t 

POL  TYPE 

Character 

3 

202 

204 

9 

POL  QTY 

Numeric 

9 

O 

n 

205 

213 

10 

LIN  NOMEN 

Character 

39 

214 

252 

11 

FT  CAP 

Numeric 

11 

2 

253 

263 

12 

DONE 

Logical 

1 

264 

264 

13 

QTY 

Numeric 

2 

265 

266 

14 

SRC 

Character 

9 

267 

275 

15 

EQUIP  CAT 

Character 

4 

276 

279 

16  LBS  GAL 
Total  ** 

Numeric 

9 

289 

3 

280 

288 

This  database  is  associated  with  index  file/tag(s) : 

:  NUMBER  (is  an  index  tag) 

:  UNITNAME  (is  an  index  tag) 

:  TASKORGNAM  (is  an  index  tag) 

:  LIN  (is  an  index  tag) 

:  POL_TYPE  (is  an  index  tag) 

:  PARENT_TJNI  (is  an  index  tag) 

This  database  is  associated  with  multiple  index  file(s): 

:  POLEST.MDX 

Used  by:  REINDX.PRG 
:  CALCPOL . PRG 

:  STARTPLR  (procedure  in  PRINTPOL. PRG) 


Structure  for  database  :  AMMOEST . DBF 
Number  of  data  records  :  148 


Last  updated  :  04/12/94  at  21:59 


Field 

Field  name 

Type 

Width 

Dec 

Start 

End 

1 

NUMBER 

Character 

8 

1 

8 

2 

UNITNAME 

Character 

60 

9 

68 

3 

TASKORGNAM 

Character 

60 

69 

128 

4 

PHASE 

Numeric 

1 

129 

129 

5 

LIN 

Character 

6 

130 

135 

6 

QUANTITY 

Numeric 

6 

136 

141 

7 

DODIC 

Character 

8 

142 

149 

8 

CALC  QTY 

Numeric 

12 

2 

150 

161 

9 

CBT  LOADQT 

Numeric 

9 

162 

170 

10 

LIN  NOMEN 

Character 

39 

171 

209 

11 

DODIC  NOM 

Character 

29 

210 

238 

12 

QTY 

Numeric 

2 

239 

240 

13 

SRC 

Character 

9 

241 

249 

**  Total  ** 

250 

This  database  is  associated  with  index 

file/tag (s) : 

:  NUMBER  (is  an  index  tag) 

:  UNITNAME  (is  an  index  tag) 

:  TASKORGNAM  (is  an  index  tag) 

:  DODIC  (is  an  index  tag) 

:  LIN  (is  an  index  tag) 

:  UNITDODI  (is  an  index  tag) 

database  is  associated  with  multiple  index  file(s): 
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This 


:  AMMOEST . MDX 


Used  by:  REINDX.PRG 

:  CALC AMMO . PRG 

:  STARTPLR  (procedure  in  PRINTPOL . PRG) 


&FILEVAR. DBF  is  a  macro  unknown  to  SNAP! 

NO  associated  index  files 

NO  associated  multiple  indexes 

>  Used  by:  BACKDBF. PRG 

:  RESTORE  (procedure  in  RESTOREF. PRG) 


&FILEVAR2 . DBF  is  a  macro 
NO  associated  index  files 
NO  associated  multiple  indexes 

Used  by:  RESTORE  (procedure  in  RESTOREF. PRG) 


t 
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System:  SURE  2.0 
Database  Field  Summary 


< 


t 


■* 


Field  Name  Type 

AE_HRS  N 

AMMO_RATE  L 

AV_HRS  N 

CALC_QTY  N 

CALC_QTY  N 

CALC_QTY  N 

CBT_LOAD  N 

CBT_LOADQT  N 

CC  N 

CDE  .  C 

CE_HRS  N 

CHANGESTA2  L 

CHANGES TAT  L 

CLIMATE  C 

CL_IVBQTY  N 

CL_IVCQTY  N 

CL_I_1  C 

CL_I_2  C 

CL_I_3  C 

CL__I_H1  L 

CL_I__H2  L 

CL_I_QTY  N 

CL_VTII_QT  N 

CUBE  N 

CUSTOM  L 

DESCRIPTIO  C 

DODIC  .  C 

DODIC_NOM  C 

DONE  L 

ECHELON  C 

ECHELON  C 

ECHELON  C 

ECHELON  C 

ECHELON  C 

EQUIP_CAT  C 

FACTOR  N 

FT_CAP  N 

FT_CAP  N 

GAL_MAN_DA  N 

GN_HRS  N 

H20_QTY  N 

HG_HRS  N 

HIDE  L 


Len 

Dec 

Database 

5 

1 

PROFILES. DBF 

1 

0 

LINLIST . DBF 

5 

1 

PROFILES. DBF 

12 

2 

AMMOEST. DBF 

10 

0 

DODIC. DBF 

7 

0 

POLWGT . DBF 

8 

0 

AMMORATE . DBF 

9 

0 

DODIC. DBF 
AMMOEST . DBF 

8 

3 

POLRATE . DBF 

4 

0 

CPROFILE . DBF 

5 

1 

PROFILES. DBF 

1 

0 

TASKORG. DBF 

1 

0 

ORDERTAS . DBF 
TASKORG. DBF 

9 

0 

WATER. DBF 

9 

0 

CL  OTHER. DBF 

9 

0 

CL  OTHER. DBF 

8 

0 

CPROFILE. DBF 

8 

0 

CPROFILE. DBF 

8 

0 

CPROFILE. DBF 

1 

0 

CPROFILE. DBF 

1 

0 

CPROFILE. DBF 

9 

o  ■ 

CL  OTHER. DBF 

9 

0 

CL  OTHER. DBF 

8 

3 

DODIC. DBF 

AMMORATE. DBF 

1 

0 

PROFILES. DBF 

60 

0 

ORDERLST . DBF 

8 

0 

DODIC. DBF 
AMMOEST. DBF 

AMMORATE. DBF 

29 

0 

AMMOEST. DBF 
DODIC. DBF 
AMMORATE . DBF 

1 

0 

POLEST . DBF 

9 

0 

WATER. DBF 

14 

0 

MEDICAL. DBF 

9 

0 

CSRCLI ST . DBF 

21 

0 

ECHELONS. DBF 

9 

0 

TEMP. DBF 

4 

0 

POLRATE. DBF 
POLEST. DBF 

5 

2 

INTENSTY. DBF 
CPROFILE. DBF 

11 

2 

POLEST. DBF 

9 

2 

POLRATE. DBF 

4 

1 

WATER. DBF 

5 

1 

PROFILES. DBF 

9 

0 

CL  OTHER. DBF 

5 

1 

PROFILES. DBF 

1 

0 

SRCLIST . DBF 
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HVY1A 

N 

9 

2 

AMMORATE. DBF 

KVY1D 

N 

9 

2 

AMMORATE. DBF 

HVYP 

N 

9 

2 

AMMORATE. DBF 

HVYSA 

N 

9 

2 

AMMORATE. DBF 

HVYSD 

N 

9 

2 

AMMORATE. DBF 

IDLE  AVG 

N 

12 

3 

POLRATE.DBF 

INTENSITY 

C 

9 

0 

MEDICAL. DBF 

INTENSITY 

C 

8 

0 

INTENSTY. DBF 

CPROFILE . DBF 

LBS_GAL 

N 

9 

3 

POLWGT . DBF 
POLEST . DBF 

LIN 

C 

6 

0 

LINLIST . DBF 
AMMOEST . DBF 
CSRCLINQ. DBF 
TTTEMP . DBF 

LIN 

C 

9 

0 

AMMORATE. DBF 

LIN 

C 

6 

0 

TTEMP . DBF 

LIN 

c 

9 

0 

POLRATE.DBF 

LIN  ‘ 

c 

6 

0 

POLEST. DBF 
SRCLINQT . DBF 

LIN  NOMEN 

c 

39 

0 

POLEST. DBF 
POLRATE.DBF 
AMMORATE . DBF 
AMMOEST. DBF 

MED_NAME 

c 

25 

0 

CPROFILE. DBF 
MEDICAL. DBF 

MENU 

M 

10 

0 

HELP. DBF 

MH  HRS 

N 

5 

1 

PROFILES. DBF 

NAME 

C 

50 

0 

ORDERLST . DBF 

NOMEN 

C 

64 

0 

LINLIST. DBF 

NOTES 

M 

.  10 

0 

HELP. DBF 

NUMBER 

C 

8 

0 

POLEST. DBF 
AMMOEST . DBF 
CL  OTHER. DBF 
ORDERLST. DBF 
ORDERTAS . DBF 

ORDER  CB 

N 

12 

0 

DODIC . DBF 

ORDER  CBTL 

N 

12 

0 

DODIC . DBF 

ORDER  QT 

N 

12 

0 

DODIC. DBF 

ORDER  QTTL 

N 

12 

0 

DODIC. DBF 

ORDER  QTY 

N 

10 

0 

CLASS  I. DBF 

ORDER  TTL 

N 

10 

0 

CLASS  I. DBF 

OV  HRS 

N 

5 

1 

PROFILES. DBF 

PARENT  UNI 

C 

60 

0 

POLEST. DBF 

PHASE 

N 

1 

0 

AMMOEST. DBF 
ORDERTAS. DBF 
CL  OTHER. DBF 
POLEST. DBF 

PHASE1LEN 

N 

5 

2 

ORDERLST. DBF 

PHASE2LEN 

N 

5 

2 

ORDERLST. DBF 

PHASE3LEN 

N 

5 

2 

ORDERLST. DBF 

PHASE4LEN 

N 

5 

2 

ORDERLST . DBF 

PHASE5LEN 

N 

5 

2 

ORDERLST. DBF 

PHASE6LEN 

N 

5 

2 

ORDERLST. DBF 

PHASE7LEN 

N 

5 

2 

ORDERLST. DBF 

PHASE8LEN 

N 

5 

2 

ORDERLST. DBF 

PHASE9LEN 

N 

5 

2 

ORDERLST. DBF 

PHASES 

N 

1 

0 

ORDERLST. DBF 

PLAN  FACT 

N 

5 

3 
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CLASS  I. DBF 

PLAN  FACT 

N 

4 

2 

MEDICAL. DBF 

POL  QTY 

N 

9 

2 

POLEST . DBF 

POL  RATE 

L 

1 

0 

LINLIST . DBF 

POL_TYPE 

C 

3 

0 

POLRATE. DBF 
POLWGT . DBF 
POLEST. DBF 

POSTURE 

C 

25 

0 

POSTURE. DBF 
CPROFILE . DBF 

PROFILE 

C 

15 

0 

PROFILES. DBF 
CPROFILE. DBF 

PROFILEDES 

C 

50 

0 

CPROFILE. DBF 

PROFILENAM 

C 

20 

0 

CL  OTHER. DBF 
CPROFILE. DBF 
ORDERTAS . DBF 

PROGRAM 

c 

8 

0 

HELP. DBF 

QTY 

N 

2 

0 

AMMOEST . DBF 
POLEST. DBF 
TEMP. DBF 
CSRCLIST . DBF 

QTY 

N 

4 

0 

LINLIST. DBF 

QTY 

N 

2 

0 

TASKORG. DBF 
CL  OTHER. DBF 
SRCLIST . DBF 

QUANTITY 

N 

6 

0 

TTEMP . DBF 
AMMOEST. DBF 
TTTEMP . DBF 
SRCLINQT . DBF 
CSRCLINQ . DBF 
POLEST. DBF 

RATION 

C 

10 

0 

CLASS  I. DBF 

SG  HRS 

N 

5 

1 

PROFILES. DBF 

SR 

N 

8 

3 

POLRATE. DBF 

SRC 

C 

9 

0 

CSRCLIST. DBF 
CSRCLINQ. DBF 
TTTEMP . DBF 
SRCLINQT . DBF 
POLEST. DBF 
TEMP. DBF 

CL  OTHER. DBF 
TASKORG. DBF 
TTEMP. DBF 
AMMOEST . DBF 
SRCLIST. DBF 

STRENGTH 

N 

6 

0 

CSRCLIST. DBF 

STRENGTH 

N 

3 

0 

ORDERTAS . DBF 

STRENGTH 

N 

6 

0 

SRCLIST. DBF 
TEMP. DBF 

CL  OTHER. DBF 

SUBJECT 

C 

60 

0 

HELP. DBF 

SUBORDINAT 

L 

1 

0 

TEMP. DBF 
CSRCLIST. DBF 

SV  HRS 

N 

5 

1 

PROFILES. DBF 

TASKORG 

L 

1 

0 

TEMP. DBF 
CSRCLIST. DBF 

TASKORGC 

L 

1 

0 

CSRCLIST. DBF 
TEMP. DBF 

TASKORGNAM 

c 

60 

0 

TASKORG. DBF 
POLEST. DBF 

CL  OTHER. DBF 
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TASKORG  CB 

N 

11 

0 

ORDERTAS . DBF 
AMMOEST . DBF 
DODIC . DBF 

TASKORG  QT 

N 

11 

0 

DODIC. DBF 

TASK  ORG  Q 

N 

9 

0 

CLASS  I. DBF 

TV  CC  HRS 

N 

5 

1 

PROFILES. DBF 

TV  SR  HRS 

N 

5 

1 

PROFILES. DBF 

TV  TI  HRS 

N 

5 

1 

PROFILES. DBF 

UNIT 

C 

12 

0 

CLASS  I. DBF 

UNITNAME 

C 

60 

0 

AMMOEST. DBF 

UNIT  CB 

N 

11 

0 

CL  OTHER. DBF 
TEMP. DBF 
CSRCLIST . DBF 
POLEST . DBF 
CSRCLINQ . DBF 
TASKORG. DBF 

TTEMP . DBF 
DODIC. DBF 

UNITJOESIG 

C 

38 

0 

CSRCLIST. DBF 

UNIT  QT 

N 

11 

0 

TEMP. DBF 

SRCLIST . DBF 
DODIC. DBF 

UNIT  QTY 

N 

9 

0 

CLASS  I. DBF 

WAT  E  R_NAME 

C 

19 

0 

WATER. DBF 

WEIGHT 

N 

10 

2 

CPROFILE . DBF 
DODIC. DBF 

WV_KMS 

N 

5 

1 

AMMORATE . DBF 
PROFILES. DBF 
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System:  SURE  2.0 
Procedure  ana  Function  Summary 


34  files  containing  procedures  in  the  system 
INSTRUCT. PRG 
SURE . PRG 
INSTUNIT. PRG 
CREATESR. PRG 
EDITUNIT . PRG 
CUSTUNIT. PRG 
DELUNIT. PRG 
INSTTASK. PRG 
CREATETA. PRG 
CREATETC. PRG 
EDITTASK. PRG 
DELTASK. PRG 
INSTPROF . PRG 
CREATEPR. PRG 
EDITPROF. PRG 
DELPROF. PRG 
CRECUSPR. PRG 
INSTORDE . PRG 
CREATEOR.PRG 
EDITORDE . PRG 
DELORDE. PRG 
INSTREPT . PRG 
ORDEREP1 . PRG 
INSTSYSR. PRG 
SYSREP . PRG 
RESTOREF. PRG 
INSTPHLP . PRG 
PRNTHELP . PRG 
PRINTPOL. PRG 
PRINTAMM. PRG 
PRINTOTH . PRG 
CALCPOL. PRG 
CALCAMMO. PRG 
CALCOTHE. PRG 


INSTRUCT. PRG  —  Last  updated:  04/10/94  at  19:44 


Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 


SURECSR1 
SURECSR2 
SURECSR3 
SURECSR5 
SURETAS1 
SU RET AS 2 
SURETAS3 
SURETAS5 
SUREPROl 
SUREPR02 
SUREPR04 
SUREPR06 
SUREORD1 
SUREORD2 
SUREORD4 


(Params : 
( Params : 
( Params : 
( Params : 
(Params : 
(Params: 
( Params : 
( Params : 
(Params : 
(Params : 
( Params : 
( Params : 
( Params : 
( Params : 
(Params : 


none) 
none) 
none) 
none ) 
none) 
none) 
none) 
none) 
none) 
none ) 
none) 
none ) 
none) 
none) 
none) 


Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 


SUREREP1 

SUREREP2 

SUREUTI 1 
SUREUTI2 
SUREUTI 3 
SUREUTI 4 

SUREUTI 5 
SUREUTI 6 
SUREQUI1 
SUREQUI2 
SUREHEL1 
SUREHEL2 


( Pa  rams :  none  > 

(Params:  none) 
(Params:  none) 
(Fa rams:  none) 
(Params:  none) 

( ?  3.  it  sms  t  none' 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 


t 


> 


SURE.PRG  —  Last  updated:  04/10/94  at  19:44 


Contains :  DEF_MENS 

Called  by:  SURE.PRG 
Calls:  SRC_PRO 
Calls:  TASK_PRO 
Calls:  PROF_PRO 
Calls:  ORDE_PRO 
Calls:  REPO_PRO 
Calls:  UTIL_PRO 
Calls:  HELP_PRO 
Calls:  QUIT_PRO 
Contains :  SRC_PRO 

Called  by:  DEF_MENS 

Calls:  CREATES R. PRG 
Calls:  STARTHLP . PRG 
Calls:  EDITUNIT . PRG 
Calls:  CUSTUNIT . PRG 
Calls:  DELUNIT . PRG 
Contains :  TASK_PRO 

Called  by:  DEF_MENS 

Calls:  CREATETA. PRG 
Calls:  STARTHLP. PRG 
Calls:  CREATETC . PRG 
Calls :  EDITTASK. PRG 
Calls:  DELTAS K. PRG 
Contains:  PROF_PRO 

Called  by:  DEF_MENS 

Calls:  CREATEPR. PRG 
Calls:  STARTHLP. PRG 
Calls:  EDITPROF. PRG 
Calls:  DELPROF. PRG 
Calls:  CRECUSPR. PRG 
Contains:  ORDE_PRO 

Called  by:  DEF_MENS 

Calls:  CREATEOR. PRG 
Calls:  STARTHLP. PRG 
Calls:  EDITORDE. PRG 
Calls:  DELORDE . PRG 
Contains:  REPO_PRO 

Called  by:  DEF_MENS 

Calls:  ORDEREP1 . PRG 
Calls:  STARTHLP. PRG 
Calls:  SYSREP . PRG 


(Params:  none) 

(procedure  in  SURE.PRG) 
(procedure  in  SURE.PRG) 
(procedure  in  SURE.PRG) 
(procedure  in  SURE.PRG) 
(procedure  in  SURE.PRG) 
(procedure  in  SURE.PRG) 
(procedure  in  SURE.PRG) 
(procedure  in  SURE.PRG) 
(Params:  none) 
(procedure  in  SURE.PRG) 


(Params:  none) 
(procedure  in  SURE.PRG) 


(Params:  none) 
(procedure  in  SURE.PRG) 


(Params:  none) 
(procedure  in  SURE.PRG) 


(Params:  none) 
(procedure  in  SURE.PRG) 


.4 


i 


4 


400 


Contains:  UTIL  PRO 

Called  by:  ZEE  MENS 

Calls:  REINDX.PRG 
Calls:  STARTHLP . PRG 
Calls:  BACKP3F.PRG 
Calls:  RESTORE? . PRG 
Calls:  PP’JSETUP .  PRG 
Calls:  COMPRESS. PRG 
Calls:  UNCOMPRE. PRG 
Contains :  QUIT_PRO 

Called  by:  DEF_MENS 

Calls:  CLOSEALL. PRG 
Contains:  HELP_PRO 

Called  by:  DEF_MENS 

Calls:  HELPMDX . PRG 
Calls:  STARTHLP. PRG 
Calls:  PRNTHELP . PRG 
Calls:  EDITHELP . PRG 


(Params:  none) 
(procedure  in  SURE. PRG: 


(Params:  none) 
(procedure  in  SURE. PRG) 

(Params:  none) 
(procedure  in  SURE. PRG) 


INSTUNIT . PRG  —  Last  updated:  04/10/94  at  19:45 


Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 


CSRC_BAR1 
CSRC_BAR2 
CSRC_BAR4 
CSRC_BAR5 
CSRC_BAR6 
CSRC_BAR3 
EDIU_BAR1 
EDIU_BAR2 
EDIUJ3AR3 
EDIU_BAR4 
EDIU_BAR5 
EDIU_BAR6 
EDIU_BAR7 
EDIU_BAR8 
CUST_BAR1 
CUST__BAR2 
CUST_BAR3 
CUST_BAR4 
CUST_BAR5 
CUST_BAR6 
DELU_BAR1 
DELU_BAR2 
DELU_BAR3 
DELU  BAR 4 


(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(-Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 


CREATESR.PRG  —  Last  updated: 

Contains :  CSRC_PRO 

Called  by:  CREATESR.PRG 
Calls:  COPYSRC 
Calls:  SEEKSRC 
Calls:  CSRCENDA 
Calls:  COPYCSRC 
Calls:  VTEWUNIT 


04/16/94  at  10:55 

(Params:  none) 

(procedure  in  CREATESR.PRG) 
(procedure  in  CREATESR.PRG) 
(procedure  in  CREATESR.PRG) 
(procedure  in  CREATESR.PRG) 
(procedure  in  CREATESR.PRG) 
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Calls:  CSRCEND 
Contains:  3EEKSRC 

Called  by:  CSRC_PRO 
Calls:  COPYSRC 
Contains:  COPYSRC 


CSRC_PRQ 

SEEKS RC 
SET BROWS . PRG 
ENDBROWS . PRG 
DISPUNIT 


.  PRG 


Called  by: 

Called  by: 

Calls : 

Calls : 

Calls : 

Contains:  COPYCSRC 

Called  by:  CSRC_PRO 
Calls:  SETBROWS, 
Calls:  ENDBROWS. PRG 
Calls:  DISPUNIT 
Contains:  VIEWUNIT 

Called  by:  CSRC_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Contains:  CSRCEND 

Called  by:  CSRC_PRO 
Calls:  ADDDATA 
Calls:  COPYLINS 
Contains:  CSRCENDA 

Called  by:  CSRC_PRO 
Calls:  ADDDATA 
Calls:  COPYLINS 
Calls:  STARTCSR 
Contains :  STARTCSR 

Called  by:  CREATES R. PRG 
Called  by:  CSRCENDA 

Calls:  STARTHLP . PRG 
Contains:  COPYLINS 
Called  by:  CSRCEND 
Called  by:  CSRCENDA 
Contains:  DISPUNIT 

COPYSRC 


Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Contains : 

Called  by: 
Called  by: 

Calls : 

Calls : 

Calls : 

Calls : 


COPYCSRC 
ADDDATA 
SELECTUNI 
SELECTUN2 
CHAN GEL I 
ADDLINCA 
DELLIN 
CHANGEEH 
EDITSTR 
UN IT DATA 
ADDDATA 

CSRCEND 
CSRCENDA 
ECHELON . PRG 
SETBROWS . PRG 
ENDBROWS . PRG 
DISPUNIT 


(procedure  in  CREATES?..  PRG' 
(Params:  none) 

(procedure  in  CREATES?. PRG) 
(procedure  in  CREATES R. PRG) 
(Params:  none) 

(procedure  in  CREATSSR.PRG) 

(procedure  in  CREATESR. PRG) 

(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  CREATESR. PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  CREATESR. PRG) 


(Params:  none 
(procedure  in 
(procedure  in 
(procedure  in 
(Params:  none) 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
( Params :  none) 

(procedure  in 

(Params:  none) 
(procedure  in 
(procedure  in 
(Params:  none) 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(Params:  none) 
(procedure  in 
(procedure  in 


CREATESR. PRG) 
CREATESR. PRG) 
CREATESR. PRG) 

CREATESR. PRG) 
CREATESR. PRG) 
CREATESR. PRG) 
CREATESR. PRG) 


CREATESR. PRG) 


CREATESR. PRG) 
CREATESR. PRG) 

CREATESR. PRG) 
CREATESR. PRG) 
CREATESR. PRG) 
EDITUNIT. PRG) 
EDITUNIT . PRG) 
EDITUNIT. PRG) 
EDITUNIT. PRG) 
EDITUNIT. PRG) 
EDITUNIT. PRG) 
EDITUNIT. PRG) 
CUSTUNIT . PRG) 

CREATESR. PRG) 
CREATESR. PRG) 


(procedure  in  CREATESR. PRG) 


>* 


4 


i 


i- 
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Contains:  EDIU  PRO 


Called  by 
Calls 
Calls 
Calls 
Calls 
Calls 
Calls 
Calls 
Calls 


EDITUNIT. PRG 

SELECTUNI 

SELECTUN2 

CHANGELI 

ADDLINCA 

DELLIN 

EDITSTR 

CHANGEEH 

ENDUNIT 


Contains :  STARTUNI 

Called  by:  EDITUNIT. PRG 


CUSTUNIT. PRG 
STARTHLP . PRG 
HELP. PRG 
ENDUNIT 


Called  by: 

Calls : 

Calls : 

Calls : 

Contains:  SELECTUNI 

Called  by:  EDIU_PRO 
Called  by: 

Calls : 

Calls : 

Calls : 

Contains:  SELECTUN2 
Called  by:  EDIU  PRO 
Called  by: 

Calls : 

Calls: 

Calls : 

Contains:  CHANGELI 

Called  by:  EDIU_PRO 
Called  by: 

Calls : 

Calls : 

Calls: 

Contains:  ADDLINCA 

Called  by:  EDIU_PRO 
Called  by: 

Calls : 

Calls : 

Calls : 

Contains:  DELLIN 

Called  by:  EDIU_PRO 
Called  by: 

Calls : 

Calls : 

Calls : 

Contains:  CHANGEEH 

Called  by:  EDIU_PRO 
Called  by:  CUST_PRO 

Calls : 

Calls : 

Calls : 

Contains:  ENDUNIT 

Called  by:  STARTUNI 
Called  by:  EDIU_PRO 
Called  by:  CUST_PRO 

Contains:  EDITSTR 

Called  by:  EDIU_PRO 

Calls:  DISPUNIT 


DELU_PRO 
SETBROWS . PRG 
ENDBROWS . PRG 
DISPUNIT 


DELU_PRO 
SETBROWS . PRG 
ENDBROWS . PRG 
DISPUNIT 


CUST_PRO 
SETBROWS . PRG 
ENDBROWS . PRG 
DISPUNIT 


CUST_PRO 
SETBROWS. PRG 
ENDBROWS . PRG 
DISPUNIT 


CUST_PRO 
SETBROWS. PRG 
ENDBROWS . PRG 
DISPUNIT 


SETBROWS. PRG 
ENDBROWS . PRG 
DISPUNIT 


(Params:  none) 

(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG! 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(Params:  none) 


(procedure  in  EDITUNIT . PRG) 
(Params:  none) 

(procedure  in  EDITUNIT . PRG) 
(procedure  in  DELUNIT . PRG) 

(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT . PRG) 
(procedure  in  DELUNIT. PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  CUSTUNIT . PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT . PRG) 
(procedure  in  CUSTUNIT . PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  CUSTUNIT . PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  CUSTUNIT. PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  CUSTUNIT . PRG) 
(Params:  none) 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  CREATESR. PRG) 
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Contains:  DISPUNIT 
Called  by:  COPYSRC 
Called  by:  COPYCSRC 
Called  by:  ADDDATA 
Called  by:  SELECTUNI 
Called  by:  SELECTUN2 
Called  by:  CHAM  GEL I 
Called  by:  ADDLINCA 
Called  by:  DELLIN 
Called  by:  CHANGEEH 
Called  by:  EDITSTR 
Called  by:  UN IT DATA 


CUSTUNIT.PRG  —  Last  updated: 

Contains:  CUST_PRO 

Called  by:  CUSTUNIT.PRG 
Calls:  UNITDATA 
Calls:  CHANGELI 
Calls:  ADDLINCA 
Calls:  DELLIN 
Calls:  CHANGEEH 
Calls:  ENDUNIT 
Contains:  STARTUNI 

Called  by:  EDITUNIT . PRG 
Called  by:  CUSTUNIT.PRG 
Calls:  STARTHLP . PRG 
Calls:  HELP. PRG 
Calls:  ENDUNIT 
Contains:  UNITDATA 

Called  by:  CUST_PRO 

Calls:  ECHELON. PRG 
Calls:  DISPUNIT 
Contains :  CHANGELI 

Called  by:  EDIU_PRO 
Called  by:  CUST_PRO 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPUNIT 
Contains:  ADDLINCA 

Called  by:  EDIU_PRO 
Called  by:  CUST_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPUNIT 
Contains:  DELLIN 

Called  by:  EDIU_PRO 
Called  by:  CUST_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPUNIT 
Contains:  CHANGEEH 

Called  by:  EDIU_PRO 
Called  by:  CUST_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPUNIT 


(  Params :  none ) 

(procedure  in  CREATES R. PRG; 
(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT. PRG; 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  CUSTUNIT.PRG) 


04/10/94  at  19:44 

(Params:  none) 

(procedure  in  CUSTUNIT.PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(Params:  none) 


(procedure  in  EDITUNIT. PRG) 
(Params:  none) 

(procedure  in  CUSTUNIT.PRG) 

(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT . PRG) 
(procedure  in  CUSTUNIT.PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  CUSTUNIT.PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT . PRG) 
(procedure  in  CUSTUNIT.PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  CUSTUNIT.PRG) 


(procedure  in  CREATESR. PRG) 
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Contains:  ENDUNIT 

Called  by:  STARTUNI 
Called  by:  EDIU_PRO 
Called  by:  CUST_PRO 
Contains:  DISPUNIT 
Called  by:  COPYSRC 
Called  by:  COPYCSRC 
Called  by:  ADDDATA 
Called  by:  SELECTUNI 
Called  by:  SELECTUN2 
Called  by:  CHANGELI 
Called  by:  ADDLINCA 
Called  by:  DELLIN 
Called  by:  CHANGEEH 
Called  by:  EDITSTR 
Called  by:  UN IT DATA 


(Params:  none) 

(procedure  in  EDITUNIT . PRGi 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  CUSTUNIT . PRG) 
(Params:  none) 

(procedure  in  CREATESR . PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  CUSTUNIT . PRG) 


DELUNIT.PRG  —  Last  updated:  04/10/94  at  19:44 


Contains:  DELU_PRO 

Called  by:  DELUNIT.PRG 
Calls:  SELECTUNI 
Calls:  SELECTUN2 
Calls:  DELUAS 
Calls:  ENDDELU 
Contains :  ENDDELU 

Called  by:  DELU_PRO 
Contains :  DELUAS 

Called  by:  DELU_PRO 
Contains:  STARTED 

Called  by:  DELUNIT.PRG 
Called  by:  EDITTASK. PRG 
Called  by:  DELTAS K. PRG 
Called  by:  DELPROF. PRG 
Calls:  STARTHLP . PRG 
Contains:  SELECTUNI 
Called  by:  EDIU_PRO 
Called  by:  DELU_PRO 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPUNIT 
Contains:  SELECTUN2 
Called  by:  EDIU_PRO 
Called  by:  DELU_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPUNIT 
Contains:  DISPUNIT 
Called  by:  COPYSRC 


Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 


COPYCSRC 

ADDDATA 

SELECTUNI 

SELECTUN2 

CHANGELI 

ADDLINCA 

DELLIN 

CHANGEEH 


(Params:  none) 

(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  DELUNIT.PRG) 
(procedure  in  DELUNIT.PRG) 
(Params:  none) 

(procedure  in  DELUNIT.PRG) 
(Params:  none) 

(procedure  in  DELUNIT.PRG) 
(Params:  none) 


(Params:  none) 

(procedure  in  EDITUNIT . PRG) 
(procedure  in  DELUNIT.PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  EDITUNIT. PRG) 
(procedure  in  DELUNIT.PRG) 


(procedure  in  CREATESR. PRG) 
(Params:  none) 

(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  CREATESR. PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  EDITUNIT. PRG) 
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Called  by:  EDITSTR 
Called  by:  UN IT DATA 


(procedure  in  EDITUNIT . PRG) 
(procedure  in  CUSTUNIT . PRG) 


INSTTASK.PRG  --  Last  updated:  04/16/94  at  10:54 


Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains : 

Contains 

Contains : 

Contains : 

Contains: 

Contains : 


CRET_BAR1 
CRET_BAR2 
CRET_BAR3 
CRET_BAR4 
CRET_BAR5 
CRET_BAR6 
C0PT_BAR1 
COPT_BAR2 
COPT_BAR4 
COPT_BAR3 
EDIT_BAR1 
EDIT_BAR2 
EDIT_BAR3 
EDIT_BAR4 
EDIT_BAR5 
EDIT_BAR6 
EDIT_BAR7 
EDIT_BAR8 
DELT_BAR1 
DELT_BAR2 
DELT  BAR3 


(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 


CREATETA. PRG  —  Last  updated:  04/15/94  at  15:21 


Contains :  CRET_PRO 

Called  by:  CREATETA. PRG 
Calls:  NAMETA 
Calls:  ASSIGNUN 
Calls:  ASSIGNU2 
Calls:  UNITQTY 
Calls:  ENDTASKA 
Calls:  ENDTASK 
Contains :  NAMETA 

Called  by:  CRET_PRO 
Calls:  DISPTASK 
Contains:  ASSIGNUN 

Called  by:  CR£T_PRO 
Called  by:  EDIT_PRO 
Calls:  DISPTASK 
Contains:  ASSIGNU2 

Called  by:  CRET_PRO 
Called  by:  EDIT_PRO 
Calls:  DISPTASK 
Contains:  UNITQTY 

Called  by:  CRET_PRO 
Contains :  ENDTASK 

Called  by:  CRET_PRO 
Contains:  ENDTASKA 

Called  by:  CRET_PRO 
Contains:  STARTASK 


(Params:  none 

(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(Params:  none) 
(procedure  in 
(procedure  in 
(Params:  none) 
(procedure  in 
(procedure  in 
(procedure  in 
(Params:  none 
(procedure  in 
(procedure  in 
(procedure  in 
(Params:  none) 
(procedure  in 
(Params:  none) 
(procedure  in 
(Params:  none) 
(procedure  in 
(Params:  none) 


CREATETA. PRG) 
CREATETA. PRG) 
CREATETA. PRG) 
CREATETA. PRG) 
CREATETA. PRG) 
CREATETA. PRG) 

CREATETA. PRG) 
CREATETA. PRG) 

CREATETA. PRG) 
EDITTASK. PRG) 
CREATETA. PRG) 

CREATETA. PRG) 
EDITTASK. PRG) 
CREATETA. PRG) 

CREATETA. PRG) 

CREATETA. PRG) 

CREATETA. PRG) 
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* 


I 


Called  by:  CREATETA.PRG 
Called  by:  CREATETC. PRG 

Calls:  STARTHLP . PRG 


Contains : 

DISPTASK 

(Params:  none) 

Called 

by 

NAMETA 

(procedure 

in 

CREATETA. PRG) 

Called 

by 

ASSIGNUN 

(procedure 

in 

CREATETA. PRG) 

Called 

by 

ASSIGNU2 

(procedure 

in 

CREATETA. PRG) 

Called 

by 

FINDTA 

(procedure 

in 

CREATETC. PRG) 

Called 

by 

ASSIGNNA 

(procedure 

in 

CREATETC. PRG) 

Called 

by 

VIEWTASK 

(procedure 

in 

EDITTASK. PRG) 

Called 

by 

VIEWTAS2 

(procedure 

in 

EDITTASK. PRG) 

Called 

by 

UNASS I GU 

(procedure 

in 

EDITTASK. PRG) 

Called 

by 

UNASSIG2 

(procedure 

in 

EDITTASK. PRG) 

Contains : 

DISPUNI 

(Params:  none) 

IATETC .  PRG 

— 

Last  updated: 

04/10/94  at  19:44 

Contains : 

COPT  PRO 

(Params:  none) 

Called 

by 

CREATETC. PRG 

Calls 

FINDTA 

(procedure, 

in 

CREATETC. PRG) 

Calls 

ASSIGNNA 

(procedure 

in 

CREATETC. PRG) 

Calls 

ENDCOPT 

(procedure 

in 

CREATETC. PRG) 

Calls 

ENDCOPTA 

(procedure 

in 

CREATETC. PRG) 

Contains : 

ST ART  ASK 

(Params:  none) 

Called  by 

CREATETA. PRG 

Called  by 

CREATETC . PRG 

Calls:  STARTHLP. PRG 
Contains :  FINDTA 

Called  by:  EDITTASK. PRG 
Called  by:  COPT__PRO 
Called  by:  EDIT_PRO 
Called  by:  DELTJPRO 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPTASK 
Contains:  AS S I GNMA 


(Params:  none) 

(procedure  in  CREATETC . PRG) 
(procedure  in  EDITTASK . PRG) 
(procedure  in  DELTASK.PRG) 


(procedure  in  CREATETA.PRG) 
(Params:  none) 


Called  by: 

COPT  PRO 

(procedure 

in 

CREATETC. PRG) 

Calls : 

DISPTASK 

(procedure 

in 

CREATETA.PRG) 

Contains : 

ENDCOPT 

(Params:  none) 

Called 

by: 

COPT  PRO 

(procedure 

in 

CREATETC. PRG) 

Contains : 

ENDCOPTA 

(Params:  none) 

Called 

by: 

COPT  PRO 

(procedure 

in 

CREATETC. PRG) 

Contains : 

DISPTASK 

(Params:  none) 

Called 

by: 

NAMETA 

(procedure 

in 

CREATETA. PRG) 

Called 

by: 

ASSIGNUN 

(procedure 

in 

CREATETA.PRG) 

Called 

by: 

ASSIGNU2 

(procedure 

in 

CREATETA.PRG) 

Called 

by: 

FINDTA 

(procedure 

in 

CREATETC. PRG) 

Called 

by: 

ASSIGNNA 

(procedure 

in 

CREATETC. PRG) 

Called 

by: 

VIEWTASK 

(procedure 

in 

EDITTASK. PRG) 

Called 

by: 

VTEWTAS2 

(procedure 

in 

EDITTASK. PRG) 

Called 

by: 

UNASSIGU 

(procedure 

in 

EDITTASK. PRG) 

Called 

by: 

UNASS I G2 

(procedure 

in 

EDITTASK. PRG) 

TTASK.PRG 

— 

Last  updated: 

04/12/94  at  21:43 
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( Par arcs :  none) 


Contains:  EDIT_PRO 

Called  by:  EDITTASK.PRG 

Calls:  FINDTA 
Calls:  ASSIGNUN 
Calls:  ASSIGNU2 
Calls:  VIEWTASK 

Calls:  VI EWTAS2 
Calls:  UNAS S I GU 
Calls:  UNASSIG2 
Calls:'  ENDEDIT 
Contains :  FINDTA 

Called  by:  EDITTASK.PRG 
Called  by:  COPT_PRO 
Called  by:  EDIT_PRO 
Called  by:  DELT_PRO 

Calls:  SETBROWS . PRG 
Calls :  ENDBROWS . PRG 
Calls:  DISPTASK 
Contains:  ASSIGNUN 

Called  by:  CRET_PRO 
Called  by:  EDIT_PRO 
Calls:  DISPTASK 
Contains:  ASSIGNU2 

Called  by:  CRET_PRO 
Called  by:  EDIT_PRO 
Calls:  DISPTASK 
Contains:  VIEWTASK 

Called  by:  EDIT_PRO 

Calls:  SETBROW2 . PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPTASK 
Contains:  VTEWTAS2 

Called  by:  EDIT_PRO 

Calls:  SETBROW2 . PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPTASK 
Contains:  UNASSIGU 

Called  by:  EDIT_PRO 
Calls:  DISPTASK 
Contains:  UNASS I G2 

Called  by:  EDIT_PRO 
Calls:  DISPTASK 
Contains:  ENDEDIT 

Called  by:  EDIT_PRO 
Contains:  STARTED 

Called  by:  DELUNIT . PRG 
Called  by:  EDITTASK.PRG 
Called  by:  DELTAS K. PRG 
Called  by:  DELPROF. PRG 
Calls:  STARTHLP . PRG 
Contains:  DISPTASK 
Called  by:  NAMETA 
Called  by:  ASSIGNUN 
Called  by:  ASSIGNU2 
Called  by:  FINDTA 
Called  by:  ASSIGNNA 
Called  by:  VIEWTASK 
Called  by:  VIEWTAS2 
Called  by:  UNASSIGU 


(procedure  in  CREATETC . PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  EDITTASK.PRG) 

(procedure  in  EDITTASK.PRG) 
(procedure  in  EDITTASK.PRG) 
(procedure  in  EDITTASK.PRG) 
(procedure  in  EDITTASK.PRG) 
(Params:  none) 

(procedure  in  CREATETC . PRG) 
(procedure  in  EDITTASK.PRG) 
(procedure  in  DELTASK.PRG) 


(procedure  in  CREATETA. PRG) 
(Params:  none) 

(procedure  in  CREATETA. PRG) 
(procedure  in  EDITTASK.PRG) 
,  (procedure  in  CREATETA. PRG) 
(Params:  none) 

(procedure  in  CREATETA. PRG) 
(procedure  in  EDITTASK.PRG) 
(procedure  in  CREATETA. PRG) 
(Params:  none) 

(procedure  in  EDITTASK.PRG) 


(procedure  in  CREATETA. PRG) 
(Params:  none) 

(procedure  in  EDITTASK.PRG) 


(procedure  in  CREATETA. PRG) 
(Params:  none) 

(procedure  in  EDITTASK.PRG) 
(procedure  in  CREATETA. PRG) 
(Params:  none) 

(procedure  in  EDITTASK.PRG) 
(procedure  in  CREATETA. PRG) 
(Params:  none) 

(procedure  in  EDITTASK.PRG) 
(Params:  none) 


(Params:  none) 

(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETC. PRG) 
(procedure  in  CREATETC. PRG) 
(procedure  in  EDITTASK.PRG) 
(procedure  in  EDITTASK.PRG) 
(procedure  in  EDITTASK.PRG) 
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Called  by:  UNASSIG2 
Contains:  DISPUNI 


(procedure  in  EDITTASK. PRG) 
(Pa rams:  none) 


DELTASK.PRG  —  Last  updated: 

Contains:  DELT_PRO 

Called  by:  DELTASK.PRG 
Calls :  FINDTA 
Calls:  DELTAS 
Calls:  ENDDELT 
Contains :  FINDTA 

Called  by:  EDITTASK. PRG 
Called  by:  COPT_PRO 
Called  by:  EDIT_PRO 
Called  by:  DELT_PRO 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPTASK 
Contains:  ENDDELT 

Called  by:  DELT_PRO 
Contains :  DELTAS 

Called  by:  DELT_PRO 
Contains :  STARTED 

Called  by:  DELUNIT . PRG 
Called  by:  EDITTASK. PRG 
Called  by:  DELTASK.PRG 
Called  by:  DELPROF. PRG 
Calls:  STARTHLP . PRG 
Contains:  DISPTASK 
Called  by:  NAMETA 
Called  by:  ASSIGNUN 
Called  by:  ASSIGNU2 
Called  by:  FINDTA 
Called  by:  ASSIGNNA 
Called  by:  VIEWTASK 
Called  by:  VIEWTAS2 
Called  by:  UNASSIGU 
Called  by:  UNAS S I G2 


INSTPROF.PRG  —  Last  updated: 

Contains:  CREP_BAR1 
Contains:  CREP_BAR2 
Contains :  CREP_BAR3 
Contains:  EDIP_BAR1 
Contains:  EDI P_BAR2 
Contains:  EDI P_BAR3 
Contains:  EDIP_BAR4 
Contains:  EDIP_BAR5 
Contains:  EDIP_BAR6 
Contains:  EDI P_BAR7 
Contains:  EDIP_BAR8 
Contains :  EDI P_BAR9 
Contains :  DELP_BAR1 
Contains:  DELP  BAR2 


04/10/94  at  19:44 

{Params:  none) 

(procedure  in  CREATETC . PRG) 
(procedure  in  DELTASK.PRG) 
(procedure  in  DELTASK.PRG) 
(Params:  none) 

(procedure  in  CREATETC . PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  DELTASK.PRG) 


(procedure  in  CREATETA. PRG) 
(Params:  none) 

(procedure  in  DELTASK.PRG) 
(Params:  none) 

(procedure  in  DELTASK.PRG) 
(Params:  none) 


(Params:  none) 

(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATETC. PRG) 
(procedure  in  CREATETC. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  EDITTASK. PRG) 


04/10/94  at  19:45 

(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
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Contains:  DELP_BAP.3^ 
Contains:  CRCP_BAR1 
Contains :  CRCP_BAR2 
Contains:  CRCP_BAR3 
Contains :  CRCP_BAR4 
Contains:  CRCP  BAR6 


CREATEPR . PRG  —  Last  updated: 

Contains :  CREP_PRO 

Called  by:  CREATEPR. PRG 
Calls:  NEWPROFI 
Calls:  VIEWPROF 
Calls:  ENDCREP 
Contains:  NEWPROFI 

Called  by:  CREP_PRO 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPPROF 
Contains:  VIEWPROF 

Called  by:  CREP_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPPROF 
Contains :  ENDCREP 

Called  by:  CREP_PRO 
Called  by:  EDIP_PRO 
Contains :  STARTPRO 

Called  by:  CREATEPR. PRG 
Called  by:  CRECUSPR.PRG 
Calls:  STARTHLP . PRG 
Contains:  DISPPROF 

Called  by:  NEWPROFI 
Called  by:  VIEWPROF 
Called  by:  SELEPROF 
Called  by:  CHANGEAP 
Called  by:  CHANGEAC 
Called  by:  CHANGEI 
Called  by:  CHANGEI F 
Called  by:  CHANGECI 
Called  by:  CHANGEH2 
Called  by:  CHANGEME 
Called  by:  SELECTPRO 
Called  by:  FINDPRO 


EDITPROF. PRG  —  Last  updated: 

Contains:  EDIP_PRO 

Called  by:  EDITPROF. PRG 
Calls:  SELEPROF 
Calls:  CHANGEAP 
Calls:  CHANGEAC 
Calls:  CHANGEI 
Calls:  CHANGEI F 
Calls:  CHANGECI 


(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 


04/10/94  at  19:44 

(Params:  none) 

(procedure  in  CREATEPR. PRG) 
(procedure  in  CREATEPR. PRG) 
(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  CREATEPR. PRG) 

(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  CREATEPR. PRG) 

(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 
(Params:  none) 


(Params:  none) 

(procedure  in  CREATEPR. PRG) 
(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  DELPROF.PRG) 
(procedure  in  CRE1ATEOR.  PRG) 


04/10/94  at  19:44 

(Params:  none) 

(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 


410 


Calls:  CHANGEH2 
Calls:  CHANGEME 
Calls:  ENDCREP 
Contains:  SELEPROF 

Called  by:  EDIP_PRO 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPPROF 
Contains:  CHANGEAP 

Called  by:  EDIP_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPPROF 
Contains:  CHANGEAC 

Called  by:  EDIP_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPPROF 


Contains:  CHANGEI 

Called  by:  EDIP_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPPROF 
Contains:  CHANGEI F 

Called  by:  EDIP_PRO 
Calls:  DISPPROF 
Contains:  CHANGECI 

Called  by:  EDIP_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPPROF 
Contains:  CHANGEH2 

Called  by:  EDIP_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPPROF 
Contains :  CHANGEME 

Called  by:  EDIP_PRO 

Calls:  SETBROWS. PRG 
Calls :  ENDBROWS . PRG 
Calls:  DISPPROF 
Contains:  ENDCREP 

Called  by:  CREP_PRO 
Called  by:  EDIP_PRO 
Contains:  STARTEPR 

Called  by:  EDITPROF. PRG 
Calls:  STARTHLP . PRG 
Contains:  DISPPROF 

Called  by:  NEWPROFI 
Called  by:  VIEWPROF 
Called  by:  SELEPROF 
Called  by:  CHANGEAP 
Called  by:  CHANGEAC 
Called  by:  CHANGEI 
Called  by:  CHANGEI F 
Called  by:  CHANGECI 
Called  by:  CHANGEH2 
Called  by:  CHANGEME 
Called  by:  SELECT PRO 


(procedure  in  EDITPROF. PRG ; 
(procedure  in  EDITPROF . PRG 
(procedure  in  CREATEPR . PRG) 
(Params:  none) 

(procedure  in  EDITPROF. PRG) 

(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  EDITPROF. PRG) 

(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  EDITPROF. PRG! 

(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  EDITPROF . PRG) 

(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  EDITPROF. PRG) 
(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  EDITPROF. PRG) 

(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  EDITPROF. PRG) 

(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  EDITPROF. PRG) 


(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 
(Params:  none) 


(Params:  none) 

(procedure  in  CREATEPR. PRG) 
(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF . PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF . PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF . PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  DELPROF.PRG) 
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Called  by:  FINDPRO 


(procedure  in  CREATEOR .  PP.G) 


DELPROF.PRG  —  Last  updated:  04/15/94  at  19:50 


Contains:  DELP_PR0 

Called  by:  DELPROF.PRG 
Calls:  SELECTPRO 
Calls:  DELPRO 
Calls:  ENDDELP 
Contains:  ENDDELP 

Called  by:  DELP_PRO 
Contains:  DELPRO 


EDITTASK. PRG 
DELTAS K. PRG 
DELPROF. PRG 
STARTHLP . PRG 


Called  by:  DELP_PRO 
Contains:  STARTED 

Called  by:  DELUNIT . PRG 
Called  by: 

Called  by: 

Called  by: 

Calls : 

Contains:  SELECTPRO 
Called  by:  DELP_PRO 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPPROF 
Contains:  DISPPROF 

NEWPROFI 


Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called  by 
Called 
Called 


by 

by 


Called  by 


VTEWPROF 

SELEPROF 

CHANGEAP 

CHANGEAC 

CHANGEI 

CHANGEIF 

CHANGECI 

CHANGEH2 

CHANGEME 

SELECTPRO 

FINDPRO 


(Params:  none) 

(procedure  in  DELPROF.PRG) 
(procedure  in  DELPROF.PRG! 
(procedure  in  DELPROF.PRG; 
(Params:  none) 

(procedure  in  DELPROF.PRG) 
(Params:  none) 

(procedure  in  DELPROF.PRG) 
(Params:  none) 


(Params:  none) 

(procedure  in  DELPROF.PRG) 


(procedure  in  CREATEPR. PRG) 


(Params:  none) 


(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 


in  CREATEPR. PRG) 
in  CREATEPR. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  DELPROF.PRG) 
in  CREATEOR. PRG) 


CRECUSPR.PRG  —  Last  updated: 

Contains:  CRCP_PRO 

Called  by:  CRECUSPR.PRG 
Calls:  NEWCUSPR 
Calls:  VIEWCUSP 
Calls:  EDITCUSP 
Calls:  ENDCUSPR 
Calls:  DELCUSPR 
Contains:  NEWCUSPR 

Called  by:  CRCP_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Contains:  VIEWCUSP 

Called  by:  CRCP_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 


04/10/94  at  19:45 

(Params:  none) 

(procedure  in  CRECUSPR.PRG) 
(procedure  in  CRECUSPR.PRG) 
(procedure  in  CRECUSPR.PRG) 
(procedure  in  CRECUSPR.PRG) 
(procedure  in  CRECUSPR.PRG) 
(Params:  none) 

(procedure  in  CRECUSPR.PRG) 


(Params:  none) 

(procedure  in  CRECUSPR.PRG) 


Calls:  DISPPRO 
Contains:  EDITCUSP 

Called  by:  CRCP_PRO 

Calls:  SETBROWS.PRG 
Calls:  ENDBROWS.PRG 
Contains:  ENDCUSPR 

Called  by:  CRCP_PRO 
Contains:  DELCUSPR 

Called  by:  CRCP_PRO 

Calls:  SETBROWS.PRG 
Calls:  ENDBROWS.PRG 
Calls:  DISPPRO 
Contains :  STARTPRO 

Called  by:  CREATEPR. PRG 
Called  by:  CRECUSPR.PRG 
Calls:  STARTHLP . PRG 
Contains:  DISPPRO 

Called  by:  VIEWCUSP 
Called  by:  DELCUSPR 


(procedure  in  CRECUSPR.PRG) 
(Params:  none) 

(procedure  in  CRECUSPR.PRG) 


(Params:  none) 

(procedure  in  CRECUSPR.PRG) 
(Params:  none) 

(procedure  in  CRECUSPR.PRG) 


(procedure  in  CRECUSPR.PRG) 
(Params:  none) 


(Params:  none) 

(procedure  in  CRECUSPR.PRG) 
(procedure  in  CRECUSPR.PRG) 


INSTORDE . PRG  —  Last  updated:  04/10/94  at  19:45 


Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 

Contains 


ORDS_BARl 
ORDS_BAR2 
ORDS_BAR3 
ORDSJBAR4 
ORDS_BAR5 
TOMPJBAR1 
TOMP_BAR2 
TOMP_BAR3 
TOMP_BAR4 
TOMP_BAR5 
TOMP_BAR6 
ORDT_BARl 
ORDT__BAR2 
ORDT_BAR3 
ORDT_BAR4 
ORDT_BAR5 
ORDT_BAR6 
ORDT_BAR7 
ORDT_BAR8 
DORD_BARl 
DORD_BAR2 
DORD_BAR3 
STRE_BAR1 
STRE_BAR2 
STRE_BAR3 
STRE_BAR4 
STRE_BAR5 
STRE  BAR 6 


(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 


CREATEOR.PRG  --  Last  updated:  04/10/94  at  19:45 

Contains:  ORDS_PRO  (Params:  none) 

Called  by:  CREATEOR.PRG 
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Calls:  STARTOR 
Calls:  CREATEO 
Calls:  VIEWORDE 
Calls:  ASSIGNTA 
Calls:  ENDORDR 
Contains:  CREATEO 

Called  by:  ORDS_PRO 
Calls:  DISPORD 
Contains:  VIEWORDE 

Called  by:  ORDS_PRO 
Called  by:  ORDT_PRO 
Called  by:  GETORDER 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPORD2 
Calls:  DISPORD3 
Contains:  ASSIGNTA 

Called  by:  ORDS_PRO 
Called  by:  ORDT_PRO 
Contains:  ENDORDR 

Called  by:  ORDS_PRO 
Called  by:  ORDT_PRO 
Contains :  STARTOR 

Called  by:  CREATEOR. PRG 
Called  by:  EDITORDE . PRG 
Called  by:  ORDS_PRO 
Called  by:  ORDT_PRO 

Calls:  STARTHLP . PRG 
Contains:  DISPORD 

Called  by:  CREATEO 
Called  by:  GETORDER 
Contains:  DISPORD2 

Called  by:  VIEWORDE 
Called  by:  ORDT_PRO 
Called  by:  GETORDER 
Contains :  TOMP_PRO 

Called  by:  CREATEOR. PRG 
Called  by:  EDITORDE. PRG 
Calls:  1PROALL 
Calls:  1PROONE 
Calls:  1PR01PRI 
Calls:  PHASEBY 
Calls:  VIEWTOP 
Contains:  1PROALL 

Called  by:  TOMP_PRO 
Calls:  FINDPRO 
Contains:  1PROONE 

Called  by:  TOMP_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  FINDPRO 
Contains:  1PR01PRI 

Called  by:  TOMP_PRO 
Calls:  FINDPRO 
Contains:  PHASEBY 

Called  by:  TOMP_PRO 
Calls:  VIEWTOP 
Calls:  FINDPRO 
Contains:  VIEWTOP 


(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR . PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE . PRG) 
(procedure  in  EDITORDE. PRG) 


(procedure  in  CREATEOR. PRG) 
(procedure  in  ORDEREP1 . PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(Params:  none) 


(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 

(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE. PRG) 
(Params:  none) 


(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 


(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 


414 


Called  by:  TOMP_PRO 
Called  by:  PHASEBY 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 
Contains:  DISPPROF 

Called  by:  NEWPROFI 
Called  by:  VIEWPROF 
Called  by:  SELEPROF 
Called  by:  CHANGEAP 
Called  by:  CHANGEAC 
Called  by:  CHANGEI 
Called  by:  CHANGEI F 
Called  by:  CHANGECI 
Called  by:  CHANGEH2 
Called  by:  CHANGEME 
Called  by:  SELECTPRO 
Called  by:  FINDPRO 
Contains :  FINDPRO 

Called  by:  1PROALL 
Called  by:  1PROONE 
Called  by:  1PR01PRI 
Called  by:  PHASEBY 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPPROF 
Contains:  DISPTAS 
Contains :  FINDTA 

Called  by:  EDITTASK. PRG 
Called  by:  COPT_PRO 
Called  by:  EDIT_PRO 
Called  by:  DELT_PRO 

Calls:  SETBROWS. PRG 
'Calls:  ENDBROWS. PRG 
Calls:  DISPTASK 


(procedure  in  CREATEOR.*  PRG) 
(procedure  in  CREATEOR. PRG; 

(Pa rams:  none) 

(procedure  in  CREATEPR. PRG) 
(procedure  in  CREATEPR . PRG) 
(procedure  in  EDITPROF .  PRG.) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF.  PRG) 
(procedure  in  DELPROE'.  PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 

(procedure  in  CREATEPR. PRG) 
(Params:  none) 

(Params:  none) 

(procedure  in  CREATETC. PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  DELTASK.PRG) 


(procedure  in  CREATETA. PRG) 


EDITORDE. PRG  —  Last  updated:  04/12/94  at  21:47 


Contains:  ORDT  PRO  (Params:  none) 


Called  by 

EDITORDE. PRG 

Calls 

STARTOR 

(procedure 

in 

CREATEOR. PRG) 

Calls 

GETORDER 

(procedure 

in 

EDITORDE. PRG) 

Calls 

VIEWORDE 

(procedure 

in 

CREATEOR. PRG) 

Calls 

DISPORD2 

(procedure 

in 

CREATEOR. PRG) 

Calls 

ASSIGNTA 

(procedure 

in 

CREATEOR. PRG) 

Calls 

EDITPLEN 

(procedure 

in 

EDITORDE. PRG) 

Calls 

ENDORDR 

(procedure 

in 

CREATEOR. PRG) 

Contains:  GETORDER 

(Params:  none) 

Called  by 

ORDT  PRO 

(procedure 

in 

EDITORDE. PRG) 

Called  by 

DORD  PRO 

(procedure 

in 

DELORDE. PRG) 

Called  by 

ORDR  PRO 

(procedure 

in 

ORDEREP1 . PRG) 

Calls 

SETBROWS . PRG 

Calls 

ENDBROWS . PRG 

Calls 

DISPORD2 

(procedure 

in 

CREATEOR. PRG) 

Calls 

VIEWORDE 

(procedure 

in 

CREATEOR. PRG) 

Calls 

DISPORD 

(procedure 

in 

CREATEOR. PRG) 

Calls 

DISPORD3 

(procedure 

in 

ORDEREP1 . PRG) 

Calls 

CA1CPOL. PRG 
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Calls:  CALC AMMO . P  RG 
-Calls:  CALCOTHE.  FP.G 

Contains:  VIEWORDE 

Called  by:  ORDS_PRO 
Called  by:  ORDT_PRO 
Called  by:  GETORDER 

Calls:  SETE  ROWS . P  RG 
Calls:  ENDBROWS . PRG 
Calls:  DISPORD2 
Calls:  DISPORD3 
Contains:  ASSIGNTA 

Called  by:  ORDS_PRO 
Called  by:  ORDT_PRO 
Contains:  ENDORDR 

Called  by:  ORDS_PRO 
Called  by:  ORDT_PRO 
Contains :  STARTOR 

Called  by:  CREATEOR. PRG 
Called  by:  EDITORDE. PRG 
Called  by:  ORDS_PRO 
Called  by:  ORDT_PRO 

Calls:  STARTHLP . PRG 
Contains:  DISPORD 

Called  by:  CREATEO 
Called  by:  GETORDER 
Contains:  DISPORD2 

Called  by:  VIEWORDE 
Called  by:  ORDT_PRO 
Called  by:  GETORDER 
Contains:  EDITPLEN 

Called  by:  ORDT_PRO 
Contains :  TOMP_PRO 

Called  by:  CREATEOR. PRG 
Called  by:  EDITORDE. PRG 
Calls:  1PROALL 
Calls:  1PROONE 
Calls:  1PR01PRI 
Calls:  PHASEBY 
Calls:  VIEWTOP 
Contains:  1PROALL 

Called  by:  TOMP_PRO 
Calls:  FINDPRO 
Contains:  1PROONE 

Called  by:  TOMP_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  FINDPRO 
Contains:  1PR01PRI 

Called  by:  TOMP_PRO 
Calls:  FINDPRO 
Contains:  PHASEBY 

Called  by:  TOMP_PRO 
Calls:  VIEWTOP 
Calls:  FINDPRO 
Contains:  VIEWTOP 

Called  by:  TOMP_PRO 
Called  by:  PHASEBY 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 


i Params :  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
('procedure  in  EDITORDE. PRG) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  ORDEREP1 . PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(Params:  none) 


(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE . PRG) 

(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE. PRG) 
(Params:  none) 

(procedure  in  EDITORDE. PRG) 
(Params:  none) 


(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 


(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 


> 


& 


\ 
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Contains:  DISPPROF 

Called  by:  NEW^ROFI 
Called  by:  VIEWPROF 
Called  by:  SELEPROF 
Called  by:  CHANGEAP 
Called  by:  CHANGEAC 
Called  by:  CHANGEI 
Called  by:  CHANGEIF 
Called  by:  CHANGECI 
Called  by:  CHANGEH2 
Called  by:  CHANGEME 
Called  by:  SELECTPRO 
Called  by:  FINDPRO 
Contains :  FINDPRO 

Called  by:  1 PRO ALL 
Called  by:  1PROONE 
Called  by:  1PR01PRI 
Called  by:  PHASEBY 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPPROF 
Contains:  DISPTAS 
Contains:  FINDTA 

Called  by:  EDITTASK . PRG 
Called  by:  COPT_PRO 
Called  by:  EDIT_PRO 
Called  by:  DELTJPRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Calls:  DISPTASK 
Contains :  STRE_PRO 

Called  by:  EDITORDE . PRG 
Calls:  1STRALL 
Calls:  1STRONE 
Calls:  1STR1PRI 
Calls:  PHASEBYS 
Calls:  VIEWSTR 
Contains:  1STRALL 

Called  by:  STRE_PRO 
Contains:  1STRONE 

Called  by:  STRE_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 
Contains:  1STR1PRI 

Called  by:  STRE_PRO 
Contains:  PHASEBYS 

Called  by:  STRE_PRO 

Calls:  SETBROW2 . PRG 
Calls:  ENDBROWS. PRG 
Contains:  VIEWSTR 

Called  by:  STRE_PRO 

Calls:  SETBROWS. PRG 
Calls:  ENDBROWS. PRG 


DELORDE.PRG  —  Last  updated: 
Contains:  DORD  PRO 


(Params:  none) 

(procedure  in  CREATEPR. PRG) 
(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  DELPROF.PRG) 
(procedure  in  CREATEOR. PRG) 
(Params:  none) 

(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 
(procedure  in  CREATEOR. PRG) 


(procedure  in  CREATEPR . PRG) 
(Params:  none) 

(Params:  none) 

(procedure  in  CREATETC . PRG) 
(procedure  in  EDITTASK. PRG) 
(procedure  in  DELTASK. PRG) 


(procedure  in  CREATETA. PRG) 
(Params:  none) 

(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  EDITORDE . PRG) 
(procedure  in  EDITORDE . PRG) 
(Params:  none) 

(procedure  in  EDITORDE. PRG) 
(Params:  none) 

(procedure  in  EDITORDE. PRG) 


(Params:  none) 

(procedure  in  EDITORDE. PRG) 
(Params:  none) 

(procedure  in  EDITORDE. PRG) 


(Params:  none) 

(procedure  in  EDITORDE. PRG) 


04/10/94  at  19:45 

(Params:  none) 


Called  by 

DELORDE . PRG 

*  Calls 

GETORDER 

(procedure 

in 

EDITORDE. PPG ! 

Contains:  GETORDER 

(Params:  none 

Called  by 

ORDT  PRO 

(procedure 

in 

EDITORDE. PRG) 

Called  by 

DORD  PRO 

(procedure 

in 

DELORDE. PRG) 

Called  by 

0RDR_PR0 

(procedure 

in 

ORDERED 1 . PRG) 

Calls 

SETBROWS . PRG 

Calls 

ENDBROWS . PRG 

Calls 

DISPORD2 

(procedure 

in 

CREATEOR. PRG) 

Calls 

VIEWORDE 

(procedure 

in 

CREATEOR. PRG) 

Calls 

DISPORD 

(procedure 

in 

CREATEOR. PRG) 

Calls 

DISPORD3 

(procedure 

in 

ORDEREP1. PRG) 

Calls 

CALC POL. PRG 

Calls 

CALC AMMO. PRG 

Calls 

CALCOTHE . PRG 

Contains:  DISPORD 

(Params:  none) 

Called  by: 

CREATEO 

(procedure 

in 

CREATEOR. PRG) 

Called  by: 

GETORDER 

(procedure 

in 

EDITORDE. PRG) 

Contains:  DISPORD2 

(Params:  none) 

Called  by: 

VIEWORDE 

(procedure 

in 

CREATEOR. PRG) 

Called  by: 

ORDT  PRO 

(procedure 

in 

EDITORDE. PRG) 

Called  by: 

GETORDER 

(procedure 

in 

EDITORDE. PRG) 

Contains:  VIEWORDE 

(Params:  none) 

Called  by: 

ORDS  PRO 

(procedure 

in 

CREATEOR. PRG) 

Called  by: 

ORDT  PRO 

(procedure 

in 

EDITORDE. PRG) 

Called  by: 

GETORDER 

(procedure 

in 

EDITORDE. PRG) 

Calls 

SETBROWS. PRG 

Calls 

ENDBROWS . PRG 

Calls 

DISPORD2 

(procedure 

in 

CREATEOR. PRG) 

Calls : 

DISPORD3 

(procedure 

in 

ORDEREP1 . PRG) 

INSTREPT.PRG  —  Last  updated;  04/10/94  at  19:45 


Contains : 
Contains ; 
Contains : 
Contains ; 
Contains : 


0RDR_BAR1 
ORDR_BAR2 
ORDR_BAR3 
ORDR_BAR4 
ORDR  BAR5 


(Params:  none) 
(Params:  none) 
{Params:  none) 
(Params:  none) 
(Params:  none) 


ORDEREP1.PRG  —  Last  updated:  04/12/94  at  21:49 


Contains :  ORDR_PRO 

Called  by:  ORDEREP1 . PRG 


Calls : 

Calls : 

Calls : 

Calls : 

Calls : 

Calls: 

Calls : 

Calls : 

Contains:  OLDORD 

Called  by:  ORDR_PRO 
Contains :  GETORDER 

Called  by:  ORDT  PRO 


STARTORD 
OLDORD 
GETORDER 
DISPORD3 
PRINTPOL . PRG 
PRINTAMM. PRG 
PRINTOTH . PRG 
ORDREND 


(Params:  none) 

(procedure  in  ORDEREP1 . PRG) 
(procedure  in  ORDEREP1 . PRG) 
(procedure  in  EDITORDE. PRG) 
(procedure  in  ORDEREP1 . PRG) 


(procedure  in  ORDEREP1 . PRG) 
(Params:  none) 

(procedure  in  ORDEREP1 . PRG) 
(Params:  none) 

(procedure  in  EDITORDE. PRG) 
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Called  by 

DORD  PRO 

(procedure 

in 

DELORDE. PRG) 

Called  by 

ORDR  PRO 

(procedure 

in 

ORDERS? 1 . PRG) 

Calls 

SETBROWS . PRG 

Calls 

ENDBROWS . PRG 

Calls 

DISPORD2 

(procedure 

in 

CREATEOR . PRG ! 

Calls 

VIEWORDE 

(procedure 

in 

CREATEOR. PRG) 

Calls 

DISPORD 

(procedure 

in 

CREATEOR. PRG) 

Calls 

DISPORD3 

(procedure 

in 

ORDEREP1 .PRG) 

Calls 

CALCPOL . PRG 

Calls 

CALCAMMO. PRG 

Calls 

CALCOTHE. PRG 

Contains:  VIEWORDE 

(Params:  none) 

Called  by 

ORDS  PRO 

(procedure 

in 

CREATEOR. PRG) 

Called  by 

ORDT  PRO 

(procedure 

in 

EDITORDE. PRG) 

Called  by 

GETORDER 

(procedure 

in 

EDITORDE. PRG) 

Calls 

SETBROWS . PRG 

Calls 

ENDBROWS . PRG 

Calls 

DISPORD2 

(procedure 

in 

CREATEOR. PRG) 

Calls 

DISPORD3 

(procedure 

in 

ORDEREP1. PRG) 

Contains:  DISPORD3 

(Params:  none) 

Called  by 

VIEWORDE 

(procedure 

in 

CREATEOR. PRG) 

Called  by 

GETORDER 

(procedure 

in 

EDITORDE. PRG) 

Called  by 

ORDR  PRO 

(procedure 

in 

ORDEREP1. PRG) 

Contains :  STARTORD 

(Params:  none) 

Called  by: 

ORDR  PRO 

(procedure 

in 

ORDEREP1 . PRG) 

Contains:  ORDREND 

(Params:  none) 

Called  by: 

ORDR_PRO 

(procedure 

in 

ORDEREP1 . PRG) 

INSTSYSR. PRG  —  Last  updated:  04/10/94  at  19:45 


Contains : 

SYSR 

BARI 

(Params: 

none) 

Contains : 

sysr- 

-BAR2 

(Params : 

none) 

Contains : 

SYSR 

"BAR  3 

( Params : 

none) 

Contains : 

SYSR* 

BAR  4 

( Params : 

none) 

Contains : 

SYSR 

-BAR  5 

(Params : 

none) 

Contains : 

SYSR 

BAR  6 

( Params : 

none) 

Contains : 

SYSR 

-BAR7 

( Params : 

none) 

Contains : 

SYSR 

BAR  8 

(Params : 

none) 

Contains : 

SYSR* 

~BAR9 

( Params : 

none) 

Contains : 

SYSR- 

"baio 

( Params : 

none) 

Contains : 

SYSR~ 

"bah 

(Params : 

none) 

Contains : 

SYSR" 

-BA12 

(Params: 

none) 

SYSREP.PRG  —  Last  updated:  04/10/94  at  19:45 


Contains:  SYSR_PRO 

Called  by:  SYSREP.PRG 
Calls:  SRCRPT 
Calls:  SRCLINR 
Calls:  UNITRPT 
Calls:  UNITLINR 
Calls:  PROFILER 
Calls:  TASKORGR 
Calls:  TASKUNIT 
Calls:  ORDERRPT 


(Params:  none) 


(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 


SYSREP.PRG) 

SYSREP.PRG) 

SYSREP.PRG) 

SYSREP.PRG) 

SYSREP.PRG) 

SYSREP.PRG) 

SYSREP.PRG) 

SYSREP.PRG) 
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Calls:  ORDERTAS 
Calls:  ORDTASUN 
Calls:  PRNSETUP . PRG 
Calls:  SYSREND 
Contains:  SRCRPT 

Called  by:  SYSR_PR0 

Calls:  SRCLST 
Contains:  SRCLST 

Called  by:  SRCRPT 
Contains:  SRCLINR 

Called  by:  SYSR_PRO 
Calls:  GET SRC 
Calls:  LINLST 
Contains:  LINLST 

Called  by:  SRCLINR 
Contains :  UNITRPT 

Called  by:  SYSR_PRO 
Calls:  UNITLST 
Contains:  UNITLINR 

Called  by:  SYSR_PRO 
Calls:  UNITLIN 
Contains:  PROFILER 

Called  by:  SYSR_PRO 
Calls:  PROFLST 
Contains :  TASKORGR 

Called  by:  SYSR_PRO 
Calls:  TASKLST 
Contains:  TASKUNIT 

Called  by:  SYSR_PRO 
Calls:  TASKUNI 
Contains:  ORDERRPT 

Called  by:  SYSR_PRO 
Calls:  ORDERLST 
Contains :  ORDERTAS 

Called  by:  SYSR_PRO 
Calls:  ORDERTP 
Contains:  ORDTASUN 

Called  by:  SYSR_PRO 
Calls:  ORDERTUP 
Contains :  SYSREND 

Called  by:  SYSR_PRO 
Contains :  STARTSRP 

Called  by:  SYSREP.PRG 
Calls:  STARTHLP . PRG 
Contains :  GET SRC 

Called  by:  SRCLINR 

Calls:  SETBROWS „ PRG 
Calls:  ENDBROWS . PRG 
Calls:  DISPSRC 


Contains : 

DISPSRC 

Called 

by: 

GET SRC 

Contains : 

DISPPROF 

Called 

by: 

NEWPROFI 

Called 

by: 

VIEWPROF 

Called 

by: 

SELEPROF 

Called 

by: 

CHANGEAP 

Called 

by: 

CHANGEAC 

Called 

by: 

CHANGEI 

Called 

by: 

CHANGEIF 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 

(procedure  in  SYSREP.PRG) 

(Pararas:  none) 

(procedure  in  SYSREP.PRG) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 


(Params:  none) 

(procedure  in  SYSREP.PRG) 


(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 


(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 

(procedure 


in  CREATEPR.PRG) 
in  CREATEPR.PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
in  EDITPROF. PRG) 
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Called 

by 

CHANGECI 

(procedure 

in 

EDITPROF. PRG) 

Called 

by 

CHAKGEH2 

(procedure 

in 

EXT T PROF . PRG; 

Called 

by 

CHANGEME 

(procedure 

in 

EDITPROF. PRG) 

Called 

by 

SELECTPRO 

(procedure 

in 

DELPROF. PRG) 

Called 

by 

FINDPRO 

(procedure 

in 

CREATEOR. PRG) 

Contains : 

LI. 

3TSRC 

(Params:  none) 

Contains : 

LISTPROF 

(Params:  none) 

Contains : 

PRIM  PRO 

(Params:  none) 

Called 

by 

SYSREP. PRG 

Called 

by 

PRINTPOL. PRG 

Called 

by 

PRINTAMM. PRG 

Called 

by 

PRINTOTH. PRG 

Calls 

PRNSETUP. PRG 

Calls 

START PLR 

(procedure 

in 

PRINTPOL. PRG) 

Calls 

REPORTHD 

(procedure 

in 

PRINTPOL. PRG) 

Calls 

TFHEAD 

(procedure 

in 

PRINTPOL. PRG) 

Calls 

LINPOL 

(procedure 

in 

PRINTPOL. PRG) 

Calls 

POLCALC 

(procedure 

in 

PRINTPOL. PRG) 

Calls 

PUNITPOL 

(procedure 

in 

PRINTPOL. PRG) 

Calls 

PTASKPOL 

(procedure 

in 

PRINTPOL. PRG) 

Calls 

PORDEPOL 

(procedure 

in 

PRINTPOL. PRG) 

Calls 

LI HAMM 

(procedure 

in 

PRINTAMM. PRG) 

Calls 

AMMOCALC 

(procedure 

in 

PRINTAMM. PRG) 

Calls 

PUNITAMM 

(procedure 

in 

PRINTAMM. PRG) 

Calls 

PTASKAMM 

(procedure 

in 

PRINTAMM. PRG) 

Calls 

PORDEAMM 

(procedure 

in 

PRINTAMM. PRG) 

Calls 

OTHECALC 

(procedure 

in 

PRINTOTH. PRG) 

Calls 

PUNITOTH 

(procedure 

in 

PRINTOTH. PRG) 

Calls 

PTASKOTH 

(procedure 

in 

PRINTOTH. PRG) 

Calls 

PORDEOTH 

(procedure 

in 

PRINTOTH. PRG) 

Contains : 

SRCLST 

(Params:  none) 

Called 

by:  SRCRPT 

(procedure  in  SYSREP. PRG) 

Contains : 

UNITLST 

(Params:  none) 

Called 

by:  UNITRPT 

(procedure  in  SYSREP. PRG) 

Contains : 

UNITLIN 

(Params:  none) 

Called 

by:  UNITLINR 

(procedure  in  SYSREP. PRG) 

Contains : 

PROFLST 

(Params:  none) 

Called 

by:  PROFILER 

(procedure  in  SYSREP. PRG) 

Contains : 

TASKLST 

(Params:  none) 

Called 

by:  TASKORGR 

(procedure  in  SYSREP. PRG) 

Contains : 

TASKUNI 

(Params:  none) 

Called 

by:  TASKUNIT 

(procedure  in  SYSREP. PRG) 

Contains : 

ORDERTP 

(Params:  none) 

Called 

by:  ORDERTAS 

(procedure  in  SYSREP. PRG) 

Contains : 

ORDERLST 

(Params:  none) 

Called 

by:  ORDERRPT 

(procedure  in  SYSREP. PRG) 

Contains : 

ORDERTUP 

(Params:  none) 

Called 

by:  ORDTASUN 

(procedure  in  SYSREP. PRG) 

RESTOREF.PRG  --  Last  updated: 

Contains:  RESTORE 

Called  by:  RESTOREF.PRG 
Calls:  GETSTATU 
Contains :  GETSTATU 
Called  by:  RESTORE 


04/10/94  at  19:45 

(Params:  none) 

(procedure  in  RESTOREF.PRG) 
(Params:  none) 

(procedure  in  RESTOREF.PRG) 
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INSTPHLP . PRG 


Last  updated:  04/10/94  at  i9:45 


Contains:  PHEL_BAR1 
Contains:  PHEL  BAR2 
Contains:  PHEL~BAR3 


PRNTHELP.PRG  —  Last  updated: 

Contains:  PHEL_PRO 

Called  by:  PRNTHELP.PRG 
Calls:  PRNONEH 
Calls:  PRNALLH 
Calls:  ENDPHEL 
Contains:  PRNONEH 

Called  by:  PHEL_PRO 
Calls:  BROWHELP 
Calls:  PRNTMEMO . PRG 
Contains:  PRNALLH 

Called  by:  PHEL_PRO 

Calls:  PRNTMEMO. PRG 
Contains :  ENDPHEL 

Called  by:  PHEL_PRO 
Contains:  BROWHELP 
Called  by:  PRNONEH 

Calls:  SETBROWS . PRG 
Calls:  ENDBROWS . PRG 


(Params:  none) 
(Params:  none) 

(Params:  none) 


04/10/94  at  19:45 

(Params:  none) 

(procedure  in  PRNTHELP.PRG) 
(procedure  in  PRNTHELP.PRG) 
(procedure  in  PRNTHELP.PRG) 
(Params:  none) 

(procedure  in  PRNTHELP.PRG) 
(procedure  in  FRNTHELP . PRG) 

(Params:  none) 

(procedure  in  PRNTHELP.PRG) 

(Params:  none) 

(procedure  in  PRNTHELP.PRG) 
(Params:  none) 

(procedure  in  PRNTHELP.PRG) 


PRINTPOL.PRG  —  Last  updated:  04/13/94  at  5:53 


Contains:  PRIN_PRO 

Called  by:  SYSREP.PRG 
Called  by:  PRINTPOL.PRG 
Called  by:  PRINTAMM. PRG 
Called  by:  PRINTOTH. PRG 
Calls:  PRNSETUP. PRG 
Calls:  START PLR 
Calls:  REPORTHD 
Calls:  TFHEAD 
Calls:  LINPOL 
Calls:  POLCALC 
Calls:  PUNITPOL 
Calls:  PTASKPOL 
Calls:  PORDEPOL 
Calls:  LINAMM 
Calls:  AMMOCALC 
Calls:  PUNITAMM 
Calls:  PTASKAMM 
Calls:  PORDEAMM 
Calls:  OTHECALC 
Calls:  PUNITOTH 
Calls:  PTASKOTH 
Calls:  PORDEOTH 
Contains:  STARTPLR 


(Params:  none) 


(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTAMM. PRG) 
(procedure  in  PRINTAMM. PRG) 
(procedure  in  PRINTAMM. PRG) 
(procedure  in  PRINTAMM. PRG) 
(procedure  in  PRINTAMM. PRG) 
(procedure  in  PRINTOTH. PRG) 
(procedure  in  PRINTOTH. PRG) 
(procedure  in  PRINTOTH . PRG) 
(procedure  in  PRINTOTH. PRG) 
(Params:  none) 
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Called  by:  PRINTPOL.PRG 
Called  by:  PRINTAMM. PRG 
Called  by:  PRINTOTH . PRG 
Called  by:  PRIN_PRO 

Calls:  STARTHLP . PRG 


Contains : 

POLCALC 

Called 

by:  CALCPOL . PRG 

Called 

by:  PRIN  PRO 

Contains : 

PUNITPOL 

Called 

by:  PRIN  PRO 

Contains : 

PTASKPOL 

Called 

by:  PRIN  PRO 

Contains : 

PORDEPOL 

Called 

by:  PRIN  PRO 

Contains : 

LINPOL 

Called 

by:  PRIN  PRO 

Contains : 

REPORTHD 

Called 

by:  PRIN  PRO 

Contains : 

TFHEAD 

Called 

by:  PRIN  PRO 

Contains : 

DETA  PRO 

Called 

by:  PRINTPOL.PRG 

Called 

by:  PRINTAMM. PRG 

Called 

by:  PRINTOTH. PRG 

Contains : 

DETA  BARI 

Contains : 

DETA  BAR2 

Contains : 

DETA  BAR 3 

Contains : 

DETA  BAR 4 

Contains : 

PRIN  BARI 

Contains : 

PRIN  BAR2 

Contains : 

PRIN  BAR3 

Contains : 

PRIN  BAR4 

Contains : 

PRIN  BAR 5 

(procedure  in  SYSREP.PRG) 

(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 


(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params :  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 


PRINTAMM. PRG  — 

Last  updated: 

04/10/94  at  19:45 

Contains:  PRIN  PRO 

(Params:  none) 

Called  by 

SYSREP.PRG 

Called  by 

PRINTPOL.PRG 

Called  by 

PRINTAMM. PRG 

Called  by 

PRINTOTH. PRG 

Calls 

PRNSETUP . PRG 

Calls 

STARTPLR 

(procedure 

in 

PRINTPOL.PRG) 

Calls 

REPORTHD 

(procedure 

in 

PRINTPOL.PRG) 

Calls 

TFHEAD 

(procedure 

in 

PRINTPOL.PRG) 

Calls 

LINPOL 

(procedure 

in 

PRINTPOL.PRG) 

Calls 

POLCALC 

(procedure 

in 

PRINTPOL.PRG) 

Calls 

PUNITPOL 

(procedure 

in 

PRINTPOL.PRG) 

Calls 

PTASKPOL 

(procedure 

in 

PRINTPOL.PRG) 

Calls 

PORDEPOL 

(procedure 

in 

PRINTPOL.PRG) 

Calls 

LINAMM 

(procedure 

in 

PRINTAMM. PRG) 

Calls 

AMMOCALC 

(procedure 

in 

PRINTAMM. PRG) 

Calls 

PUN I TAMM 

(procedure 

in 

PRINTAMM. PRG) 

Calls 

PTASKAMM 

(procedure 

in 

PRINTAMM. PRG) 

Calls 

PORDEAMM 

(procedure 

in 

PRINTAMM. PRG) 

Calls 

OTHECALC 

(procedure 

in 

PRINTOTH. PRG) 

Calls 

PUN I TOTH 

(procedure 

in 

PRINTOTH. PRG) 
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Calls:  PTASKOTH 
Calls:  PORDEOTH 
Contains:  START PLR 

Called  by:  PRINTPOL.PRG 
Called  by:  PRINTAMM. PRG 
Called  by:  PRINTOTH . PRG 

Called  by:  PRIN_PRO 

Calls:  STARTHLP . PRG 
Contains:  AMMOCALC 

Called  by:  CALCAMMO . PRG 
Called  by:  PRIN_PRO 
Contains:  PUNITAMM 

Called  by:  PRIN_PRO 
Contains:  PTASKAMM 

Called  by:  PRIN_PRO 
Contains :  PORDEAMM 

Called  by:  PRIN_PRO 
Contains :  LINAMM 

Called  by:  PRIN_PRO 
Contains:  REPORTHD 

Called  by:  PRIN_PRO 
Contains :  DETA_PRO 

Called  by:  PRINTPOL.PRG 
Called  by:  PRINTAMM. PRG 
Called  by:  PRINTOTH. PRG 
Contains :  DETA_BAR1 
Contains :  DETA_BAR2 
Contains :  DETA_BAR3 
Contains :  DETAJ3AR4 
Contains :  PRIN_BAR1 
Contains:  PRIN_BAR2 
Contains:  PRIN_BAR3 
Contains :  PRIN_BAR4 
Contains:  PRIN  BAR 5 


PRINTOTH. PRG  —  Last  updated: 

Contains :  PRIN_PRO 

Called  by:  SYSREP.PRG 
Called  by:  PRINTPOL.PRG 
Called  by:  PRINTAMM. PRG 
Called  by:  PRINTOTH. PRG 
Calls:  PRNSETUP . PRG 
Calls:  STARTPLR 
Calls:  REPORTHD 
Calls:  TFHEAD 
Calls:  LINPOL 
Calls:  POLCALC 
Calls:  PUNITPOL 
Calls:  PTASKPOL 
Calls:  PORDEPOL 
Calls:  LINAMM 
Calls:  AMMOCALC 
Calls:  PUNITAMM 
Calls:  PTASKAMM 
Calls:  PORDEAMM 
Calls:  OTHECALC 


(procedure  in  PRINTOTH . PRG  I 
(procedure  in  PRINTOTH .  ??G ;■ 

(Params:  none) 


(procedure  in  SYSREP.PRG) 

(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 


(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 


04/10/94  at  19:45 

(Params:  none) 


(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTPOL.PRG) 
(procedure  in  PRINTAMM. PRG) 
(procedure  in  PRINTAMM. PRG) 
(procedure  in  PRINTAMM. PRG) 
(procedure  in  PRINTAMM. PRG) 
(procedure  in  PRINTAMM. PRG) 
(procedure  in  PRINTOTH. PRG) 
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4 


Calls:  PUNITOTH 
Calls:  PTASKOTH 
Calls:  PORDEOTH 
Contains:  STARTPLR 

Called  by:  PRINTPOL.PRG 
Called  by:  PRINTAMM. PRG 
Called  by:  PRINTOTH . PRG 
Called  by:  PRIN_PRO 

Calls:  STARTHLP . PRG 
Contains:  OTHECALC 

Called  by:  PRIN_PRO 
Contains:  PUNITOTH 

Called  by:  PRIN_PRO 
Contains:  PTASKOTH 

Called  by:  PRIN_PRO 
Contains:  PORDEOTH 

Called  by:  PRIN_PRO 
Contains :  REPORTHD 

Called  by:  PRIN_PRO 
Contains :  DETA_PRO 

Called  by:  PRINTPOL.PRG 
Called  by:  PRINTAMM. PRG 
Called  by:  PRINTOTH. PRG 
Contains :  DETA_BAR1 
Contains :  DETA_BAR2 
Contains :  DETA_BAR3 
Contains:  PRIN_BAR1 
Contains :  PRIN_BAR2 
Contains:  PRIN_BAR3 
Contains :  PRIN_BAR4 
Contains:  PRIN  BAR5 


(procedure  in  PRINTOTH . PRG) 
(procedure  in  PRINTOTH . PRG; 
(procedure  in  PRINTOTH. PRG) 
(Params:  none) 


(procedure  in  SYSREP.PRG) 

(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 

(procedure  in  SYSREP.PRG) 
(Params:  none) 


(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 
(Params:  none) 


CALCPOL. PRG  --  Last  updated:  04/10/94  at  19:45 

Contains:  POLCALC  (Params:  none) 

Called  by:  CALCPOL. PRG 

Called  by:  PRIN_PRO  (procedure  in  SYSREP.PRG) 


/ 


I 


CALCAMMO . PRG  —  Last  updated:  04/10/94  at  19:45 

Contains:  AMMOCALC  (Params:  none) 

Called  by:  CALCAMMO. PRG 

Called  by:  PRIN_PRO  (procedure  in  SYSREP.PRG) 


CALCOTHE. PRG  —  Last  updated:  04/12/94  at  21:55 

Contains:  OTHERCAL  (Params:  none) 

Called  by:  CALCOTHE. PRG 
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System:  SURE  2.0 
Index  Parameter  Summary 


34  index  files  in  the  system 

PROGRAM 

SUBJECT 

SRC 

UNIT_DESIG 

STRENGTH 

UNITNAME 

ECHELON 

-LIN 

UNIQUELI 

DODIC 

POL_TYPE 

TASKORGNAM 

UNIQUEUN 

UNIQUETA 

NUMBER 

TASKPHAS 

PROFILENAM 

TASKPHASE 

UNIQUENU 

PHASE 

UNIQUETN 

PHASETAS 

MED_NAME 

WATER_NAME 

RATION 

PROFILE 

INTENSITY 

PROFILEDES 

POSTURE 

CDE 

NAME 

DESCRIPTIO 

PARENT_UNI 

UNITDODI 


PROGRAM  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  HELP. DBF 

Used  by:  REINDX.PRG 


SUBJECT  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  HELP. DBF 

Used  by:  REINDX.PRG 


SRC  is  an  index  tag 


This  index  file  is  associated  with  database (s): 
:  CSRCLI ST . DBF 
:  SRCLIST . DBF 
:  SRCLINQT . DBF 
:  CSRCLINQ . DBF 
:  TASKORG. DBF 

Used  by:  REINDX.PRG 


UNIT_DESIG  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  CSRCLIST . DBF 
:  SRCLIST. DBF 

Used  by:  REINDX.PRG 


STRENGTH  is  an  index  tag 

This  index  file  is  associated  with  database (s) : 
:  CSRCLIST. DBF 

Used  by:  REINDX.PRG 


UNITNAME  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
: ' CSRCLIST. DBF 
:  CSRCLINQ. DBF 
:  TASKORG. DBF 
:  CL_OTHER. DBF 
:  POLEST . DBF 
:  AMMOEST . DBF 

Used  by:  REINDX.PRG 


ECHELON  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  CSRCLIST. DBF 
:  ECHELONS. DBF 
:  MEDICAL. DBF 
:  WATER. DBF 

Used  by:  REINDX.PRG 


LIN  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  SRCLINQT. DBF 
:  CSRCLINQ. DBF 
:  LINLIST . DBF 
:  AMMORATE . DBF 
:  POLRATE . DBF 


:  POLEST . DBF 
:  AMMOEST . DBF 

Used  by:  REINDX.PRG 


UNIQUELI  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  SRCLINQT . DBF 

Used  by:  REINDX.PRG 


DODIC  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  AMMORATE . DBF 
:  DODIC. DBF 
:  AMMOEST. DBF 

Used  by:  REINDX.PRG 


POL_TYPE  is  an  index  tag 

This  index  file  is  associated  with  database (s) : 
:  POLRATE. DBF 
:  POLWGT . DBF 
:  POLEST. DBF 

Used  by:  REINDX.PRG 


TASKORGNAM  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  TASKORG.DBF 
:  ORDERTAS . DBF 
:  CL_OTHER. DBF 
:  POLEST. DBF 
:  AMMOEST. DBF 

Used  by:  REINDX.PRG 


UNIQUEUN  is  an  index  tag 

This  index  file  is  associated  with  database(s): 
:  TASKORG.DBF 

Used  by:  REINDX.PRG 


UNIQUETA  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  TASKORG.DBF 
:  ORDERTAS. DBF 


Used  by:  REINDX.PRG 


NUMBER  is  an  index  tag 

This  index  file  is  associated  with  database (s) : 
:  ORDERTAS . DBF 
:  ORDERLST . DBF 
:  POLEST . DBF 
:  AMMOEST . DBF 

Used  by:  REINDX.PRG 


TASKPHAS  is  an  index  tag 

This  index  file  is  associated  with  database(s): 
:  ORDERTAS . DBF 

Used  by:  REINDX.PRG 
PROFILENAM  is  an  index  tag 

This  index  file  is  associated  with  database(s): 
:  ORDERTAS. DBF 
:  CPROFILE . DBF 
:  CL_OTHER . DBF 

Used  by:  REINDX.PRG 
TASKPHASE  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  ORDERTAS. DBF 

Used  by:  REINDX.PRG 
UNIQUENU  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  ORDERTAS. DBF 

Used  by:  REINDX.PRG 
PHASE  is  an  index  tag 

This  index  file  is  associated  with  database (s): 

:  ORDERTAS. DBF 

Used  by:  REINDX.PRG 
UNIQUETN  is  an  index  tag 
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This  index  file  is  associated  with  database (si : 
:  ORDERTAS . DBF 

Used  by:  REINDX.PRG 
PHASETAS  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  ORDERTAS . DBF 

Used  by:  REINDX.PRG 
MED_NAME  is  an  index  tag 

This  index  file  is  associated  with  databas e(s): 
:  MEDICAL. DBF 
:  CPROFILE . DBF 

Used  by:  REINDX.PRG 
WATER_NAME  is  an  index  tag 

This  index  file  is  associated  with  database (s): 

:  WATER. DBF 
:  CPROFILE. DBF 

Used  by:  REINDX.PRG 
RATION  is  an  index  tag 

This  index  file  is  associated  with  database (s): 

:  CLASS_I . DBF 

Used  by:  REINDX.PRG 
PROFILE  is  an  index  tag 

This  index  file  is  associated  with  database (s): 

:  PROFILES. DBF 
:  CPROFILE. DBF 

Used  by:  REINDX.PRG 
INTENSITY  is  an  index  tag 

This  index  file  is  associated  with  database (s): 

:  CPROFILE. DBF 

Used  by:  REINDX.PRG 
PROFILEDES  is  an  index  tag 
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This  index  file  is  associated  with  database ( s ) :( 
:  CPROFILE . DBF 

Used  by:  REINDX.PRG 


POSTURE  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  CPROFILE. DBF 

Used  by:  REINDX.PRG 


CDE  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  CPROFILE. DBF 

Used  by:  REINDX.PRG 


NAME  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  ORDERLST . DBF 

Used  by:  REINDX.PRG 


DESCRIPTIO'  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  ORDERLST. DBF 

Used  by:  REINDX.PRG 


PARENT_UNI  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  POLEST . DBF 

Used  by:  REINDX.PRG 


UNITDODI  is  an  index  tag 

This  index  file  is  associated  with  database (s): 
:  AMMOEST . DBF 

Used  by:  REINDX.PRG 


System:  SURE  2.0 

Author:  MAJ  John  M.  Friedson 

04/16/94  12:51:19 

Multiple  Index  File  Parameter  Summary 
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24  multiple  index  files  in  the  system 
D:\SURE\HELP.MDX 
D:\SURE\CSRCLIST.MDX 
D:\SURE\SRCLIST.MDX 
D : \ SURE\ SRCLINQT . MDX 
D:\SURE\CSRCLINQ.MDX 
D:\SURE\ECHELONS .MDX 
D:\SURE\LINLIST.MDX 
D:\SURE\AMMORATE.MDX 
D:\SURE\POLRATE.MDX 
D:\SURE\TASKORG.MDX 
D:\SURE\ORDERTAS.MDX 
D : \ SURE\MEDICAL . MDX 
D : \ SUREN WATER . MDX 
D : \ SUREN  CLAS  S_I . MDX 
D : N  SUREN INTENSTY . MDX 
D : N  SUREN  PROFI LES . MDX 
D: NSURENCPROFILE.MDX 
D : N  SURENORDERLST . MDX 
D : N  SUREN CL_OTHER . MDX 
D : N  SUREN  POLWGT . MDX 
D: NSURENDODIC.MDX 
D : N  SUREN  POLEST . MDX 
D : N SUREN AMMOEST . MDX 
D: N SUREN  & FI LEVAR 


HELP. MDX  Last  updated:  04/10/94  at  19:25 

Tag:  Program  (PROGRAM) 

Tag:  Subject  (SUBJECT) 

This  multiple  index  file  is  associated  with  database (s): 
:  HELP. DBF 

Used  by:  STARTHLP . PRG 
:  REINDX . PRG 


CSRCLIST.MDX 

Tag:  Unit_desig 
Tag:  Strength 
Tag:  Unitname 
Tag:  Src 
Tag:  Echelon 


Last  updated:  04/16/94  at  10:49 
(UNIT_DESIG) 

(STRENGTH) 

(UNITNAME) 

(SRC) 

(ECHELON) 


This  multiple  index  file  is  associated  with  database (s) : 
:  CSRCLIST . DBF 


Used  by:  REINDX. PRG 
:  BACKDBF. PRG 
:  STARTCSR 
:  STARTUNI 
:  STARTED 
:  START ASK 
:  CALCPOL. PRG 
:  CALCAMMO .  PRG 


(procedure  in 
(procedure  in 
(procedure  in 
(procedure  in 


CREATESR . PRG ) 
EDITUNIT. PRG) 
DELUNIT . PRG) 
CREATETA. PRG) 
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:  CALCOTHE . PRG 
:  STARTSRP 
:  STARTPLR 


(procedure  in  SYSREP.PRG) 
(procedure  in  PRINTPOL. PRG) 


SRCLIST.MDX  Last  updated:  04/10/94  at  19:25 

Tag:  Src  (SRC) 

Tag:  Unit_desig  (UNIT_DESIG) 

This  multiple  index  file  is  associated  with  database (s): 

:  SRCLIST . DBF 

Used  by:  REINDX . PRG 

:  STARTCSR  (procedure  in  CREATESR. PRG) 

:  STARTUNI  (procedure  in  EDITUNIT . PRG) 

:  STARTSRP  (procedure  in  SYSREP.PRG) 


SRCLINQT . MDX 
Tag:  Lin 
Tag:  Src 
Tag:  Uniqueli 


Last  updated:  04/10/94  at  19:26 
(LIN) 

(SRC) 

(LIN) 


This  multiple  index  file  is  associated  with  database (s): 
:  SRCLINQT. DBF 


Used  by:  REINDX. PRG 
:  STARTCSR 
:  STARTUNI 
:  STARTSRP 


(procedure  in  CREATESR. PRG) 
(procedure  in  EDITUNIT. PRG) 
(procedure  in  SYSREP.PRG) 


CSRCLINQ.MDX 
Tag:  Lin 
Tag:  Src 
Tag:  Unitname 


Last  updated: 
(LIN) 

(SRC) 

(UNITNAME) 


04/16/94  at  10:49 


This  multiple  index  file  is  associated  with  database(s): 
:  CSRCLINQ . DBF 


Used  by:  REINDX. PRG 
:  BACKDBF. PRG 
:  STARTCSR 
:  STARTUNI 
:  STARTED 
:  CALCPOL. PRG 
:  CALCAMMO . PRG 
:  CALCOTHE. PRG 
:  STARTSRP 
:  STARTPLR 


(procedure  in 
(procedure  in 
(procedure  in 


CREATESR. PRG) 
EDITUNIT. PRG) 
DELUNIT . PRG) 


(procedure  in 
(procedure  in 


SYSREP.PRG) 
PRINTPOL. PRG) 


ECHELONS. MDX  Last  updated:  04/10/94  at  19:26 

Tag:  Echelon  (ECHELON) 

This  multiple  index  file  is  associated  with  database (s): 
:  ECHELONS. DBF 

Used  by:  REINDX. PRG 
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(procedure  in  CREATESR. PRG) 
(procedure  in  EDITUNIT . PRG) 
(procedure  in  EDITUNIT . PRG) 


:  ADDDATA 
:  STARTUNI 
:  CHANGEEH 
:  CALCOTHE. PRG 


LINLIST.MDX 
Tag:  Lin 


Last  updated:  04/10/94  at  19:26 
(LIN) 


This  multiple  index  file  is  associated  with  database (s) : 


:  LINLIST . DBF 

Used  by:  REINDX . PRG 
:  STARTUNI 


(procedure  in  EDITUNIT . PRG) 


AMMORATE . MDX 
Tag:  Lin 
Tag:  Dodic 


Last  updated:  04/10/94  at  19:26 
(LIN) 

(DODIC) 


This  multiple  index  file  is  associated  with  database (s): 
:  AMMORATE. DBF 


Used  by:  REINDX. PRG 
:  STARTUNI 
:  CALCAMMO . PRG 
:  STARTSRP 
:  STARTPLR 


(procedure  in  EDITUNIT. PRG) 

(procedure  in  SYSREP.PRG) 
(procedure  in  PRINTPOL. PRG) 


POLRATE . MDX  Last  updated:  04/10/94  at  19:26 

Tag:  Lin  (LIN) 

Tag:  Pol_type  (POL_TYPE) 

This  multiple  index  file  is  associated  with  database (s): 

:  POLRATE. DBF 

Used  by:  REINDX. PRG 

:  STARTUNI  (procedure  in  EDITUNIT. PRG) 

:  CALCPOL. PRG 

:  STARTSRP  (procedure  in  SYSREP.PRG) 

:  STARTPLR  (procedure  in  PRINTPOL. PRG) 


TASKORG.MDX 
Tag:  Unitname 
Tag:  Uniqueun 
Tag:  Uniqueta 
Tag:  Taskorgnam 
Tag:  Src 


Last  updated:  04/15/94  at  19:47 
(UNITNAME) 

(UNITNAME) 

(TASKORGNAM) 

(TASKORGNAM) 

(SRC) 


This  multiple  index  file  is  associated  with  database (s) : 
:  TASKORG. DBF 


Used  by:  REINDX. PRG 
:  BACKDBF. PRG 
:  STARTED 
:  STARTASK 
:  STARTOR 


(procedure  in  DELUNIT . PRG) 
(procedure  in  CREATETA. PRG) 
(procedure  in  CREATEOR. PRG) 
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(procedure  in  SYSREP.PRG) 
(procedure  in  PRINTFOL . PRG) 


CALC POL. PRG 
CALCAMMO . P  RG 

CALCOTHE. PRG 

STARTSRP 

STARTPLR 


ORDERTAS. MDX 

Last  updated:  04/15/94  at 

Tag: 

Uniqueta 

( TAS  KO  RGNAM ) 

Tag: 

Phase 

(PHASE) 

Tag: 

Uniquetn 

( TASKORGNAM+NUMBER) 

Tag : 

Number 

(NUMBER) 

Tag: 

Taskorgnam 

(TASKORGNAM) 

Tag: 

Taskphas 

(TASKORGNAM+STR( PHASE) ) 

Tag: 

Profilenam 

(PROFILENAM) 

Tag: 

Taskphase 

(TASKORGNAM+STR( PHASE) ) 

Tag: 

Uniquenu 

(NUMBER) 

Tag: 

Phasetas 

(STR( PHASE) +TAS  KORGNAM ) 

This  multiple  index  file  is  associated  with  database (s): 
:  ORDERTAS . DBF 


Used  by:  DELORDE . PRG 
:  REINDX . PRG 
:  BACKDBF. PRG 
:  STARTED 
:  STARTOR 
:  CALCPOL . PRG 
:  CALCAMMO. PRG 
:  CALCOTHE. PRG 
:  STARTSRP 
:  STARTPLR 


(procedure  in 
(procedure  in 


DELUNIT. PRG) 
CREATEOR. PRG) 


(procedure  in 
(procedure  in 


SYSREP.PRG) 
PRINTPOL. PRG) 


MEDICAL. MDX  Last  updated:  04/10/94  at  19:26 

Tag:  Med_name  (MED_NAME) 

Tag:  Echelon  (ECHELON) 

This  multiple  index  file  is  associated  with  database (s): 

:  MEDICAL. DBF 

Used  by:  REINDX. PRG 

:  STARTPRO  (procedure  in  CREATEPR. PRG) 

:  STARTEPR  (procedure  in  EDITPROF. PRG) 

:  CALCOTHE. PRG 

:  STARTPLR  (procedure  in  PRINTPOL . PRG) 


WATER. MDX 

Tag:  Echelon 
Tag:  Water  name 


Last  updated:  04/10/94  at  19:26 
(ECHELON) 

(WATER  NAME) 


This  multiple  index  file  is  associated  with  database (s): 
:  WATER. DBF 


Used  by:  REINDX. PRG 
:  STARTPRO 
:  STARTEPR 
:  CALCOTHE. PRG 


(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 
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:  STARTPLR 


(procedure  in  PRINTPOL . PRG) 


CLASS_I.MDX  Last  updated:  04/10/94  at  19:26 

Tag:  Ration  (RATION) 


This  multiple  index  file  is  associated  with  database<s): 
:  CLASS  I. DBF 


Used  by:  REINDX.PRG 
:  START PRO 
:  STARTEPR 
:  STARTPLR 


(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 
(procedure  in  PRINTPOL . PRG) 


INTENSTY.MDX  Last  updated:  03/30/94  at  7:34 


Tag:  Profile 

(PROFILE) 

Tag:  Intensity 

(INTENSITY) 

Tag:  Profilenam 

(PROFILENAM) 

Tag:  Profiledes 

(PROFILEDES) 

Tag:  Posture 

(POSTURE) 

Tag:  Med  name 

(MED  NAME) 

Tag:  Water  name 

(WATER  NAME) 

Tag:  Cde 

(CDE) 

This  multiple  index  file  is  associated  with  database(s): 
:  INTENSTY . DBF 


Used  by:  BACKDBF. PRG 
:  STARTPRO 
:  STARTEPR 
:  CALCPOL. PRG 
:  GALCAMMO . PRG 
:  CALCOTHE . PRG 
:  STARTPLR 


(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 


(procedure  in  PRINTPOL. PRG) 


PROFILES. MDX  Last  updated:  04/10/94  at  19:26 

Tag:  Profile  (PROFILE] 


This  multiple  index  file  is  associated  with  database (s): 
:  PROFILES. DBF 


Used  by:  REINDX.PRG 
:  BACKDBF. PRG 
:  STARTPRO 
:  STARTEPR 
:  CALCPOL. PRG 
:  CALCAMMO . PRG 
:  CALCOTHE. PRG 
:  STARTPLR 


(procedure  in  CREATEPR. PRG) 
(procedure  in  EDITPROF. PRG) 


(procedure  in  PRINTPOL. PRG) 


CPROFILE.MDX 
Tag:  Med_name 
Tag:  Water_name 
Tag:  Profile 
Tag:  Intensity 
Tag:  Profilenam 


Last  updated:  04/15/94  at  19:50 
(MED_NAME) 

( WAT  E R_NAME ) 

(PROFILE) 

(INTENSITY) 

(PROFILENAM) 
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Tag:  Profiledes 
Tag:  Posture 
Tag:  Cde 


(profiledes; 

(POSTURE) 

(CDE) 


This  multiple  index  file  is  associated  with  database (s) : 
:  CPROFILE . DBF 


Used  by:  REINDX.PRG 
:  BACKDBF . PRG 
:  STARTED 
:  STARTPRO 
:  STARTEPR 
:  STARTOR 
:  CALCPOL . PRG 
:  CALC AMMO. PRG 
:  CALCOTHE . PRG 
:  STARTSRP 
:  STARTPLR 


(procedure  in 
(procedure  in 
{procedure  in 
(procedure  in 


(procedure  in 
(procedure  in 


DELUNIT. PRG) 
CREATEPR. PRG) 
EDITPROF. PRG) 
CREATEOR. PRG) 


SYSREP. PRG) 
PRINTPOL . PRG) 


ORDERLST . MDX 
Tag:  Number 
Tag:  Name 
Tag:  Descriptio 


Last  updated:  04/15/94  at  19:47 
(NUMBER) 

(NAME) 

(DESCRIPTIO) 


This  multiple  index  file  is  associated  with  database (s): 
:  ORDERLST. DBF 


Used  by:  DELORDE . PRG 
:  REINDX.PRG 
: ' BACKDBF. PRG 
:  STARTOR 
:  STARTORD 
:  CALCPOL. PRG 
:  CALCAMMO . PRG 
:  CALCOTHE. PRG 
:  STARTSRP 
:  STARTPLR 


(procedure  in  CREATEOR. PRG) 
(procedure  in  ORDEREP1 . PRG) 


(procedure  in  SYSREP. PRG) 
(procedure  in  PRINTPOL . PRG) 


CL_OTHER . MDX 
Tag:  Unitname 
Tag:  Taskorgnam 
Tag:  Profilenam 


Last  updated:  04/12/94  at  21:59 
(UNITNAME) 

(TASKORGNAM! 

(PROFILENAM) 


This  multiple  index  file  is  associated  with  database (s): 
:  CL  OTHER. DBF 


Used  by:  REINDX.PRG 
:  STARTORD 
:  CALCOTHE. PRG 
:  STARTPLR 


(procedure  in  ORDEREP1 . PRG) 
(procedure  in  PRINTPOL . PRG) 


POLWGT.MDX  Last  updated:  04/10/94  at  19:26 

Tag:  Pol_type  (POL_TYPE) 

This  multiple  index  file  is  associated  with  database (s): 
:  POLWGT . DBF 
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Used  by:  REINDX.PRG 
:  CALCPOL . PRG 

:  STARTPLR  (procedure  in  PRINTPOL. PRG) 


DODIC.MDX  Last  updated:  04/10/94  at  19:26 

Tag:  Dodic  (DODIC) 

This  multiple  index  file  is  associated  with  database (s): 

:  DODIC. DBF 

Used  by:  REINDX.PRG 

:  CALCAMMO . PRG 

:  STARTPLR  (procedure  in  PRINTPOL . PRG) 


POLEST.MDX 
Tag:  Lin 
Tag:  Pol_type 
Tag:  Number 
Tag:  Unitname 
Tag:  Taskorgnam 
Tag:  Parent  uni 


Last  updated:  04/12/94  at  21:58 
(LIN) 

(POL_TYPE) 

(NUMBER) 

(UNITNAME) 

(TASKORGNAM) 

(PARENT  UNI) 


This  multiple  index  file  is  associated  with  database (s): 

:  POLEST . DBF 

Used  by:  REINDX.PRG 
:  CALCPOL. PRG 

:  STARTPLR.  (procedure  in  PRINTPOL. PRG) 


<* 


AMMOEST . MDX 
Tag:  Dodic 
Tag:  Lin 
Tag:  Number 
Tag:  Unitname 
Tag:  Taskorgnam 
Tag:  Unitdodi 


Last  updated:  04/12/94  at  21:59 
(DODIC) 

(LIN) 

(NUMBER) 

(UNITNAME) 

(TASKORGNAM) 

(UNITNAME+LIN+DODIC) 


This  multiple  index  file  is  associated  with  database(s): 
:  AMMOEST. DBF 


Used  by: 


REINDX.PRG 
CALCAMMO . PRG 
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SURE . ?RG 

i  VARIABLE. MEM  (rr.envory  file; 

+ - HELP .  PRG 

I  4 - MEMCPA.GR  (  }  (function 

) - SETCON .  PRG 

4 - STARTHLP .  PRG 


[  HELP. DBF  (database) 

I  + - HELP.  PRG... 

4- - MEMVARS  .  PRG 

4- - DEF_MENS  (procedure  in  SURE.  PRG) 

4- - SRC_PRO  (procedure  in  SURE.  PRG) 

!  4 - CREATESR .  PRG 

I  I  + - STARTCSR  (procedure  'in  CREATESR. PRG) 

III!  CSRCLIST.DBF  (database) 

I  I  !  I  TEMP. DBF  (database) 

I  I  I  I  SRCLIST . DEF  (database) 

I  I  I  I  SRCLINQT . DBF  (database) 

II  I  i  CSRCLINQ. DBF  (database) 

!  I  I  4- - STARTHLP.  PRG.  .  . 

I  I  + - CSRC_PRO  (procedure  in  CREATESR. PRG) 

I  ,  4 - COFYSRC  (procedure  in  CREATESR. PRG) 

I  |  |  4- - SETBROWS .  PRG 

I  I  I  4- - ENDBROWS .  PRG 

|  |  |  +. - DISFUNIT  (procedure  in  CREATESR .  PRG  j 

|  |  + - SEEK'SRC  (procedure  in  CREATESR.  PRG) 

I  I  I  4- - COPY  SRC.  .  .  (procedure  in  CREATESR.  PRG) 

I  |  4- - CSRCENDA  (procedure  in  CREATESR .  PRG) 

I  |  |  4- - ADDDATA  (procedure  in  CREATESR.  PRG) 

I  !  Ill  ECHELONS. DBF  (database) 

)|  ||  + - ECHELON. PRG 

||  ||  + - SETBROWS. PRG. . . 

||  ||  + - ENDBROWS .  PRG .  .  . 

II  II  + - DISFUNIT...  (procedure  in  CREATESR . PRG 

|  |  I  + - COPYLINS  (procedure  in  CREATESR . PRG ) 

II  II  TTEMP . DBF  (database) 

II  II  TTTEMP . DBF  (database) 

I  I  I  4 - STARTCSR.  .  .  (procedure  in  CRF.ATESR.  PRG) 

I  |  4 - COPYCSRC  (procedure  in  CREATESR. PRG) 

I  I  I  4 - SETBROWS.  PRG.  .  . 

I  I  I  4 - ENDBROWS.  FRG.  .  . 

I  I  I  4 - DISPUNIT...  (procedure  in  CREATESR. PRG) 

|  |  4 - VIEWUNIT  (procedure  in  CREATESR. PRG) 

I  I  I  4 - SETBROWS.  PRG.  .  . 

I  I  I  4 - ENDBROWS.  PRG.  .  . 

I  I  4 - CSRCEN’D  (procedure  in  CREATESR.  PRG) 

I  I  4 - ADDDATA...  (procedure  in  CREATESR. PRG) 

|  |  4 - COPYLINS...  (procedure  in  CREATESR. PRG) 

I  4 - STARTHLP.  PRG.  .  . 

I  4 - EDITUNIT .  PRG 

I  I  4 - STARTUNI  (procedure  in  EDITUNIT . PRG) 

I  I  I  I  CSRCLIST.DBF  (database) 

I  I  I  I  LINLIST . DBF  (database) 

I  I  I  I  AMMORATE .DBF  (database) 

I  I  I  I  POLRATE . DBF  (database) 

till  SRCLIST. DBF  (database) 

I  I  I  I  SRCLINQT . DBF  (database) 

[III  CSRCLINQ. DBF  (database) 

I  I  I  I  ECHELONS. DBF  (database) 

I  I  |  4 - STARTHLP.  PRG.  .  . 

I  I  I  + - HELP.  PRG... 

I  I  |  + - ENDUNIT  (procedure  in  EDITUNIT. PRG) 

I  I  + - EDIU_PRO  (procedure  in  EDITUNIT . PRG) 

I  I  4 - SELECTUNI  (procedure  in  EDITUNIT . PRG) 

I  I  I  4- - SETBROWS.  PRG.  .  . 

I  I  |  4 - ENDBROWS.  PRG.  .  . 

1  I  I  + - DISPUNIT...  (procedure  in  CREATESR . PRG ) 

I  I  + - SELECTUN2  (procedure  in  EDITUNIT . PRG ) 

I  I  I  4 - SETBROWS.  PRG.  .  . 
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- - ENDfROWS  .  ?RG.  .  . 


I  -* - DI3PUMIT .  .  .  {procedure  in  CRE.ATESR . FRO 

+ - CHANGEEH  (procedure  in  EDITUNIT .  PRG ! 


i  1  i  ECHELONS. DBc  {database) 

i  I  -r - SETBROWS.PRG.  .  . 

I  !  + - ENDBROWS. PRG. . . 

\  f  F - DI3PUMIT...  (procedure  in  CREATESR. PRG 

1  + - ENDUNIT. . .  (procedure  in  EDITUNIT .  PRGij 

+ - CUSTUNIT .  PRG 

(  + - STARTUNI . . .  (procedure  in  EDITUNIT . PRG , 

I  + - CUST_PRO  (procedure  in  CUSTUNIT. PRG! 

|  F - UN  IT  CAT  A  (procedure  ir,  CUSTUNIT .  PRG) 

I  !  !  TEMP. DBF  (database) 

i  I  + - ECHELON.  PRG.’.  . 

I  I  F - DI3PUNIT...  (procedure  in  CREATES?,. PRG 

|  F - CHANGELI...  (procedure  in  EDITUMIT. PRG) 

I  + - ADDLINCA. . .  (procedure  in  EDITUMIT . PRG ) 

!  + - DELLIN...  (procedure  in  EDITUMIT. PRG) 

I  + - '.-CHANGEEH...  (procedure  in  EDITUMIT .  PRG) 

I  + - ENDUMIT...  (procedure  in  EDITUMIT. PRG) 

+ - DELUNIT  .  PRG 

+ - STARTED  (procedure  in  DELUNIT. PRG) 

I  I  C3RCLIST . DBF  (database) 

I  I  CSRCLINQ.  DBE'  (database) 

I  I  TASKORG . DBF  (database) 

I  I  ORDERTAS . DBF  (database) 

I  I  CPROFILE . DBF  (database) 

I  + - STARTHLP  .  PRG .  .  . 

+ - DELU_PRO  (procedure  in  DELUNIT. PRG) 

+ - SELECTUNI . . .  (procedure  in  EDITUNIT. PRG) 

+ - SELECTUN2. . .  (procedure  in  EDITUNIT . PRC ) 

F - DELUA3  (procedure  in-  DELUNIT.  PRG) 

+ - ENDDELU  (procedure  in  DELUNIT. PRG) 

--TASK_PRO  (procedure  in  SURE. PRG) 

F - CREATETA.  PRG 

I  F - STARTASK  '  (procedure  in  CREATETA. PRG) 

I  I  I  TASKORG. DBF  (database) 

I  I  I  CSRCLIST.DBF  (database) 

I  I  + - STARTHLP.  PRG.  .  . 

I  F - CRET_PRO  (procedure  in  CREATETA. PRG ) 

|  + - NAMETA  (procedure  in  CREA.TETA.  PRG ) 

I  I  F - DISPTASK  (procedure  in  CREATETA. PRG) 

I  F - ASSIGNUN  (procedure  in  CREATETA. PRG) 

I  I  I  TEMP. DBF  (database) 

I  I  I  TTEMP .DBF  (database) 

i  I  F - DISPTASK...  (procedure  in  CREATETA. PRG) 

I  F - ASSIGNU2  (procedure  in  CREATETA. PRG) 

I  I  |  TEMP. DBF  (database) 

I  I  !  TTEMP. DBF  (database) 

I  I  F - DISPTASK...  (procedure  in  CREATETA. PRG ) 

I  + - UNITQTY  (procedure  in  CREATETA. FRG) 

I  + - ENDTASKA  (procedure  in  CREATETA. PRG ) 

I  I  TEMP. DBF  (database) 

I  i  TTEMP. DBF  (database) 

I  F - ENDTASK  (procedure  in  CREATETA. PRG) 

I  TEMP. DBF  (database) 

I  TTEMP. DBF  (database) 

F - STARTHLP.  PRG.  .  . 

F - CREATETC.  PRG 
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r - 3TARTA3K. . .  {procedure  in  CREATETA.. PRG; 

+ - FINDTA  (procedure  ir.  CREATETC .  PRG  • 


i  + - SETBROWS .  PRG .  .  . 

!  + - ENDBROWS. PRG.  .  . 

I  + - DISF'TA.SK.  .  .  (procedure  in  CREA.T 

1- - ASSIGNNA  ! procedure  ir.  CREATETC. PRG; 

!  4 - DISPTASK. . .  (procedure  in  GREAT 

+ - ENDCOPT  (procedure  in  CREATETC.  PRG) 

!  TEMP. DBF  (database) 


ETA. 


+ - ENDCOPTA  (procedure  in  CREATETC. PRG) 


TEMP. DBF  (database) 

-EDITTA3K.PRG 

+ - STARTED...  (procedure  in  DELUNIT.PRG' 

+ - FINDTA. ..  (procedure  in  CREATETC. PRG) 

+ - EDIT_PRO  (procedure  in  EDITTASK. PRG) 

+ - FINDTA...  (procedure  in  CREATETC 

+ - ASSIGNUM...  (procedure  in  CREATE 

4 - AS3IGNU2...  (procedure  in  CREATE  7. A.  F 

+ - VIEWTASK  (procedure  in  EDITTASK. PRG) 

i  4- - SETBROW2  .  PRG 

|  + - ENDBROWS.  PRG.  .  . 


.  PRG) 
TA.  PRG 


I  |  I  + - DISPTASK...  (procedure  in  CRF.ATETA.  PRC- ! 

i  |  + - VIEWTAS2  (procedure  in  EDITTASK. PRG) 

!  I  I  + - SETBROW2 .  PRG.  .  . 

!  I  I  + - ENDBROWS.  PRG.  .  . 

I  |  I  + - DISPTASK...  (procedure  in  CREATETA.  PRG) 

|  '  |  + - UNASS I GU  (procedure  in  EDITTASK. PRG) 

|  |  I  + - DISPTASK...  (procedure  in  CREATETA.  PRG) 

I  |  + - UNASSIG2  (procedure  in  EDITTASK. PRG) 

I  I  I  + - DISPTASK...  (procedure  in  CREATETA. PRG) 

I  i  + - ENDEDIT  (procedure  in  EDITTASK. PRG) 

I  + - DELTASK.  PRG 

I  + - STARTED...  (procedure  in  DELUNIT.PRG) 

I  + - DELT_PRO  (procedure  in  DELTASK. PRG) 

I  + - FINDTA...  (procedure  in  CREATETC. PRG) 

I  + - DELTAS  (procedure  in  DELT.ASK.  PRG) 

I  + - ENDDELT  (procedure  in  DELTASK. PRG) 


+ - PROF_PRO  (procedure  in  SURE. PRG) 

+ - CREATEPR.  PRG 

I  + - STARTPRO  (procedure  in  CREATEPR . PRG) 

I  1  I  MEDICAL. DBF  (database) 

I  I  1  WATER. DBF  (database) 

I  I  |  CLASS_I . DBF  (database) 

I  I  i  POSTURE. DBF  (database) 

I  I  1  INTENSTY. DBF  (database) 

I  I  I  PROFILES. DBF  (database) 

I  !  I  CPROFILE . DBF  (database) 

I  I  4- - STARTHLP.  PRG.  .  . 

I  + - CREP_PRO  (procedure  in  CREATEPR . PRG ) 

j  + - NEWPROFI  (procedure  in  CREATEPR. PRG) 

I  I  |  TEMP. DBF  (database) 

I  I  + - SETBROWS .  PRG.  .  . 

I  I  + - ENDBROWS.  PRG.  .  . 

I  I  4- - DISPPROF  (procedure  in  CREATEPR. PRG) 

I  + - VIEWPROF  (procedure  in  CREATEPR. PRG) 

I  I  + - SETBROWS.  PRG.  .  . 

I  I  + - ENDBROWS.  PRG.  .  . 

I  I  + - DISPPROF...  (procedure  in  CREATEPR. PRG) 

I  + - ENDCREP  (procedure  in  CREATEPR. PRG) 

+ - STARTHLP.  PRG.  .  . 

+ - EDITPROF.  PRG 

I  + - STARTEPR  (procedure  in  EDITPROF. PRG) 

I  !  |  MEDICAL. DBF  (database) 

I  I  I  WATER. DBF  (database) 

I  I  |  CLASS_I . DBF  (database) 

I  I  I  INTENSTY. DBF  (database! 

I  I  |  PROFILES. DBF  (database) 

I  I  |  POSTURE. DBF  (database) 

I  1  !  CPROFILE. DBF  (database) 

I  I  + - STARTHLP.  PRG.  .  . 

I  + - EDIP_PRO  (procedure  in  EDITPROF. PRG) 

|  + - SELEPROF  (procedure  in  EDITPROF. PRG) 


441 


!  I  I  + - SETBROWS . PRG. . . 

i  I  + - CHAMGEAP  (procedure  in  EDITPROF.  PEG) 

I  !  I  + - SETBROWS.  PRG.  .  . 

i  i  I  + - ENDBROWS.  PRG.  .  . 

I  i  + - CISPPROF. . .  ; procedure  in  CREATErR.FXA 

I  !  *■ - CHANGLRC  (procedure  in  EDITPROF. PRG  1 

I  !  I  +  SETBROWS . FRG . . . 

i  I  I  + - ENDBROWS. FRG. . . 

1  I  I  + - DISPPROF. . .  (procedure  in  CREA.TEPR .  PEG ’ 

1  !  + - CHANGE I  (procedure  in  EDITPROF.  PRG ) 

I  I  I  + - SETBROWS.  PRG.  .  . 

I  I  I  + - ENDBROW3. PRG. . . 

I  I  I  + - DISPPROF...  (procedure  in  CREA.TEPR .  PRG ! 

I  I  + - CHANGEIF  (procedure  in  EDITPROF. PRGi 

I  i  I  + - DISPPROF...  (procedure  in  CREATEPR. FRG) 

I  I  + - CHANGECI  (procedure  in  EDITPROF. PRG) 

I  I  I  * - SETBROWS.  PRG.  .  . 

I  I  I  + - ENDBROWS.  PRG.  .  . 

I  I  I  + - DISPPROF...  (procedure  in  CREATEPR . PRG ) 

t  I  + - CHANGEH2  (procedure  in  EDITPROF. PRG) 

I  I  I  + - SETBROWS.  PRG.  .  . 

I  I  I  + - ENDBROWS.  PRG.  .  . 

I  I  |  + - DISPPROF...  (procedure  in  CREATEPR. PRG) 

I  I  + - CHANGEME  (procedure  in  EDITPROF. FRG) 

I  I  I  + - SETBROWS.  PRG.  .  . 

I  I  I  + - ENDBROWS.  PRG.  .  . 

II  I  + - DISPPROF...  (procedure  in  CREATEPR. PRG) 

I  I  + - ENDCREP...  (procedure  in  CREA.TEPR .  PRG ) 

I  + - DELPROF.  PRG 

I  I  + - STARTED...  (procedure  in  DELUNIT.PRG) 

|  |  +- - DELP_PRO  (procedure  in  DELPROF. PRG) 

I  I  + - SELECTPRO  (procedure  in  DELPROF. PRG! 

I  I  i  + - SETBROWS.  PRG.  .  . 

I  I  |  + - ENDBROWS.  PRG.  .  . 

I  I  I  + - DISPPROF...  (procedure  in  CREATEPR. FRG) 

|  [  + - DELPRO  (procedure  in  DELPROF. PRG) 

|  |  + - EMDDELP  (procedure  in  DELPROF. PRG) 

I  + - CRECUSPR. PRG 

I  + - STARTPRO. . .  (procedure  in  CREATEPR. PRG) 

I  + - CRCP_PRO  (procedure  in  CRECUSPR. PRG) 

I  + - NEWCUSPR  (procedure  in  CRECUSPR. PRG) 

I  I  I  TEMP. DBF  (database) 

I  I  + - SETBROWS . PRG .. . 

I  I  + - ENDBROWS.  PRG.  .  . 

|  + - VIEWCUSP  (procedure  in  CRECUSPR . PRGi 

I  !  + - SETBROWS. PRG. . . 

I  I  + - ENDBROWS.  PRG.  .  . 

I  I  + - DISPPRO  (procedure  in  CRECUSPR. PRG) 

I  + - EDITCUSP  (procedure  in  CRECUSPR . PRG) 

I  I  + - SETBROWS. PRG. . . 

|  1  + - ENDBROWS.  PRG.  .  . 

I  + - ENDCUSPR  (procedure  in  CRECUSPR. PRG) 

|  + - DELCUSPR  (procedure  in  CRECUSPR. PRG) 

I  + - SETBROWS.  PRG.  .  . 

|  + - ENDBROWS. PRG. . . 

I  + - DISPPRO...  (procedure  in  CRECUSPR. PRG) 

+ - ORDE_PRO  (procedure  in  SURE. PRG) 

I  + - CREATEOR .  PRG 

I  I  + - STARTOR  (procedure  in  CREATEOR. PRG) 

I  I  I  I  CPROFILE . DBF  (database) 

I  II  I  TASKORG. DBF  (database) 

I  I  I  I  ORDERTAS . DBF  (database) 

I  I  I  I  ORDERLST . DBF  (database) 

I  I  [  + - STARTHLP  .  PRG.  .  . 

I  I  + - TOMP_PRO  (procedure  in  CREATEOR. PRG) 

|  |  |  + - 1PROALL  (procedure  in  CREATEOR. PRG) 

I  I  I  I  + - FINDPRO  (procedure  in  CREATEOR. PRG) 

till  + - SETBROWS.  PRG.  .  . 

|  |  |  |  + - ENDBROWS.  PRG.  .  . 

I  I  I  I  + - DISPPROF...  (procedure  in  CREATEPR. PRG) 

I  I  I  + - 1PROONE  (procedure  in  CREATEOR. PRG) 
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-t - IPROIPRI  (procedure  in  CREATF.OR.  PRG) 

i  + - FIN'DPRO.  .  .  (procedure  in  CREATEOR. PRG) 


i  i  i  i  + - EM  D3R0WS .PRG.  .  . 

i  I  - - FINDPRO.  .  .  (procedure  in  GREAT  EOF .  PR-3 ) 

!  !  + - VIEWTOP. . .  (procedure  in  CREATEOR . PRG) 

i  i- - ORDS_PRO  (procedure  in  CREATEOR.  PRG) 

+ - STARTCR. . .  (procedure  in  CREATEOR. PRG) 

■I  + - CREATEO  (procedure  in  CREATEOR.  PRG) 

!  |  |  TEMP. DBF  (database) 

i  i  + - DISPORD  (procedure  in  CREATEOR . PRG) 

'  + - VIEWOF.DE  (procedure  in  CREATEOR.  PRG) 

I  !  + - SETBROWS.  PRG.  .  . 

I  I  + - ENDBROWS.  PRG.  .  . 

i  |  + - DISP0RD3  (procedure  in  CREATEOR. PRO) 

|  |  + - DISP0RD3  (procedure  in  ORDERErl . PRG) 

I  + - ASSIGNTA  (procedure  in  CREATEOR. PRG) 

i  I  TTEMP. DBF  (database) 

i  !  TEMP. DBF  (database) 

I  + - EM DOR DR  (procedure  in  CREATEOR. PRG) 

+ - STARTHLP.  PRG.  .  . 

+ - EDITORDE  .  PRG 

I  + - STARTOk...  (procedure  in  CREATEOR. PRG! 

I  + - TOMP_PRO...  (procedure  in  CREATEOR. PRG) 

I  + - STRE_PRO  (procedure  in  EDITORDE. PRG) 

I  I  + - 1STRALL  (procedure  in  EDITORDE . PRG) 

I  I  + - LSTRONE  (procedure  in  EDITORDE . PRG) 

I  I  I  + - SETBROWS. PRG. . . 

|  |  |  + - ENDBROWS.  PRG.  .  . 

I  I  + - ISTR1PRI  (procedure  in  EDITORDE . PRG) 

I  I  + - PHASEBY3  (procedure  in  EDITORDE . PRG) 

|  .  |  |  + - SETBR0W2 . PRG. . . 

j  |  |  + - ENDBROWS.  PRG.  .  . 

|  |  + - VIEWSTR  (procedure  in  EDITORDE . PRG ) 

I  I  + - SETBROWS .  PRC .  .  . 

I  |  + - ENDBROWS.  PRG.  .  . 

|  + - ORDT_PRO  (procedure  in  EDITORDE . PRG ) 

I  + - STARTOR...  (procedure  in  CREATEOR. PRG) 

I  + - GETORDER  (procedure  in  EDITORDE . PRG ) 

I  |  + - SETBROWS.  PRG.  .  . 

I  |  + - ENDBROWS.  PRG.  .  . 

I  I  + - DI3PORD2...  (procedure  in  CREATEOR . PRG ) 

|  I  + - VIEWORDE...  (procedure  in  CREATEOR . PRG) 

I  I  + - DISPORD...  (procedure  in  CREATEOR. PRG) 

I  t  + - DI3PORD3...  (procedure  in  0RDEREP1 . PRG) 

I  I  + - CALCPOL.PRG 

1  III  TASKORG. DBF  (database) 

I  III  CSRCLIST.DBF  (database) 

I  111  ORDERLST.DBF  (database) 

I  III  CPROFILE. DBF  (database) 

I  III  PROFILES. DBF  (database) 

I  III  POLRATE . DBF  (database) 

I  III  POSTURE. DBF  (database) 

I  III  INTENSTY . DBF  (database) 

I  III  POLWGT . DBF  (database) 

I  III  CSRCLINQ. DBF  (database) 

I  III  ORDERTAS. DBF  (database) 

I  III  POLEST . DBF  (database) 

I  I  I  + - STARTHLP.  PRG.  .  . 

I  I  I  + - POLCALC  (procedure  in  PRINTPOL . PRG) 

I  I  + - CALCAMMO.PRG 

I  III  TASKORG. DBF  (database) 

I  III  CSRCLIST.DBF  (database) 

I  III  ORDERLST.DBF  (database) 

I  III  CPROFILE. DBF  (database) 

I  III  PROFILES. DBF  (database) 

I  III  AMMORATE . DBF  (database) 

I  III  POSTURE. DBF  (database) 
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DODIC.DBF  (database) 

.'■‘u'UaOcjO  i  .  L'fr  C  (daCSCSSc  j 


1  i  i  :  r - -AHMCCALC  (procedure  in  PRIN .AMM.c&G' 

!  !  I  r  —  — — CALCOT HE .  r  rv3 

i  '■  •  i  TA5KO.v3.DEr  (database) 

I  !  !  !  CSRCLIST. DEF  (database) 

I  I  I  i  ORDERLST. DBF  (database) 

i  !  I  ;  CFROFILE. D3F  (database) 

!  i  1  PROFILES . DBF  (database) 

!  i  I  POSTURE. DBF  (database) 

I  I  i  INTEMSTY . DBF  (database! 

!  !  i  CSRCLINQ. DBF  (database) 

I  t  I  ORDERTAS.DBF  ( database) 

!  i  MEDICAL. DBF  (database) 

I  i  j  WATER. DBF  (database; 

I  I  I  ECHELONS. DBF  (database) 

I  I  I  CL_OTHER. DEF  (database) 

I  i  + - STARTHIiP .  PRG .  .  . 

I  I  + - OTHERCAL  (procedure  ir.  CALCOTKE .  PRG ! 

1  *■ - VIEVJORDE .  .  .  (procedure  in  CREATEOR .  PRG  ; 

I  + - DISP0RD2...  (procedure  in  CREATEOR. PRO; 

|  a - ASSIGNTA. . .  (procedure  in  CREATEOR. PRG) 

|  ^  + - EDITPLEt!  (procedure  in  EDITORDE.  PRG) 

I  ’  t - ENDORDR...  (procedure  in  CREATEOR. PRG) 

+ - DELORDE  .  PRG 

I  ORDERTAS.DBF  (database! 

I  ORDERLST . DBF  (database) 

+ - STARTHLP .  PRG .  .  . 

+ - DORD_PRO  (procedure  in  DELORDE. PRG) 

+ - GETORDER...  (procedure  in  EDITORDE . PRG! 

- REPO_PRO  (procedure  in  SURE. PRG) 

+ - 0RDEREP1 .  PRG 

I  + - ORDR_PRO  (procedure  in  0RDEREF1 . PRG) 

I  + - STARTORD  (procedure  in  0RDEREP1 . PRG } 

I  I  CL_OTHER . DBF  (database) 

I  I  ORDERLST. DBF  (database) 

I  + - OLDORD  (procedure  in  0RDEREP1 . PRG) 

!  + - GETORDER...  (procedure  in  EDITORDE. PRG) 

I  + - DISP0RD3. . .  (procedure  in  0RDEREP1 . PRG ) 

I  + - PRINTPOL .  PRG 

I  I  + - STARTPLR  (procedure  in  PRINTFOL . PRG) 

I  III  TASKORG . DEF  (database) 

I  III  CSRCLIST. DBF  (database) 

I  III  ORDERLST. DBF  (database) 

I  III  CFROFILE. DBF  (database) 

I  III  PROFILES. DBF  (database) 

I  III  POLRATE . DBF  (database) 

I  III  POSTURE. DBF  (database) 

I  III  INTENSTY. DBF  (database) 

I  III  POLWGT.DBF  (database) 

I  III  CSRCLINQ. DBF  (database) 

I  III  ORDERTAS.DBF  (database) 

I  III  DODIC.DBF  (database) 

I  III  POLEST.DBF  (database) 

I  III  AMMOEST . DBF  (database) 

I  III  AMMORATE.DBF  (database) 

I  III  MEDICAL. DBF  (database) 

I  III  WATER. DBF  (database) 

I  III  CLASS_I.DBF  (database) 

I  111  CL_OTHER. DBF  (database) 

I  I  I  + - STARTHLP.  PRG.  .  . 

I  I  + - D£TA_PRO  (procedure  in  PRINTPOL. PRG) 

I  I  + - PRIN_PRO  (procedure  in  SYSREP.PRG) 

I  I  + - PRMSETUP.PRG 

I  I  I  VARIABLE. MEM  (memory  file) 

|  |  + - STARTPLR...  (procedure  in  PRINTPOL. PRG) 

I  I  + - REPORTHD  (procedure  in  PRINTPOL . PRG ) 

I  I  + - TFHEAD  (procedure  in  PRINTPOL . PRG ) 

I  I  -* - LINPOL  (procedure  in  PRINTPOL.  PRG) 


i 


» 
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,  ;  1  i- - POLCALC.  .  .  (procedure  ir,  PRIN  l'P'OL  . 

i  |  I  + - PORDEPOL  (procedure  in  PRINTPOL. PR 

i  j  I  + - LINAMP!  (procedure  i n  PRINTAMM .  FA A  - 

i  I  * - RMMOCALC.  .  .  (procedure  in  PETNTA’T: 

■  i  t - r'JNIIAXM  (procedure  in  PRINTA’ .  FA. 

!  1  !  + - PTASKAMM  (procedure  in  FRIM7AVM. PR 

I  1  I  -f - FORDEAMM  (procedure  in  PRINTAMM.  ? R 

l  j  i  + - OTHECALC  (procedure  ir.  PRINTCTH.FE 

I  j  i  +■ - FUNITOTH  (procedure  in  PRINTOTH.PR 

I  |  |  + - PTASKOTH  (procedure  in  PRINTOTH.PR 

I  I  I  + - PORDEOTH  (procedure  in  PRINTOTH.PR 

I  i  +■ - PRINTAMM .  FRG 

I  !  I  + - START PLR. . .  (procedure  in  PRINTPOL . FRG i 

1  !  I  + - DETA  PRO...  (procedure  in  PRINTPOL. FRG; 

I  !  I  + - PRIN_PRO. . .  (procedure  in  SYSREP.PRG) 

|  !  + - PRINTOTH .  PRG 

I  :  i  + - DETA_PRO. . .  (procedure  in  PRINTPOL . FRG ; 

I  l  |  + - START PLR . . .  (procedure  in  PRINTPOL. PRG; 

|  I  I  +■ - PRIN_PRO. . .  (procedure  in  SYSREP.PRG) 

|  |  + - ORDREND  (procedure  in  0RDEREP1 . PRG ) 

I  + - STARTHLP. PRG. . . 

I  + - SYSREP.PRG 

i  + - 5TARTSRP  (procedure  in  SYSREP.PRG) 

I  I  I  TASKORG. DBF  (database) 

!  I  |  CSRCLIST. DBF  (database) 

i  I  I  CRDERLST . DBF  (database) 

I  i  I  CPROFILE . DBF  (database) 

I  I  t  SRCLINQT . DBF  (database) 

i  I  I  SRCLIST . DBF  (database) 

i  I  I  AMMORATE . DBF  (database) 

I  I  I  POLRATE . DBF  (database) 

I  I  I  CSRCLINQ. DBF  (database) 

I  I  i  ORDERTAS . DBF  (database) 

|  |  +. - STARTHLP.  PRG.  .  . 

I  + - PRIN_PRO...  (procedure  in  SYSREP.PRG) 

I  + - SYSR_PRO  (procedure  in  SYSREP.PRG) 

|  + - SRCRPT  (procedure  in  SYSREP.PRG) 

I  I  + - SRCLST  (procedure  in  SYSREP.PRG) 

I  + - SRCLINR  (procedure  in  SYSREP.PRG) 

I  I  + - GETSRC  (procedure  in  SYSREP.PRG) 

i  |  |  + - SETBROWS .  PRG .  .  . 

t  |  |  + - ENDBROWS.  PRG.  .  . 

I  I  |  + - DISPSRC  (procedure  in  SYSREP.PRG) 

I  I  + - LTNLST  (procedure  in  SYSREP.PRG) 

I  + - UNITRPT  (procedure  in  SYSREP.PRG) 

|  (  + - UNITLST  (procedure  in  SYSREP.PRG) 

I  + - UNITLINR  (procedure  in  SYSREP.PRG) 

I  I  + - UNITLIN  (procedure  in  SYSREP.PRG) 

I  + - PROFILER  (procedure  in  SYSREP.PRG) 

!  I  + - PROFLST  (procedure  in  SYSREP.PRG) 

I  + - TASKORGR  (procedure  in  SYSREP.PRG) 

I  i  + - TASKLST  (procedure  in  SYSREP.PRG) 

I  + - TASKUNIT  (procedure  in  SYSREP.PRG) 

I  I  t - TASKUNI  (procedure  in  SYSREP.PRG) 

I  + - ORDERRPT  (procedure  in  SYSREP.PRG) 

|  I  + - ORDERLST  (procedure  in  SYSREP.PRG) 

|  + - ORDERTAS  (procedure  in  SYSREP.PRG) 

I  I  i - ORDERTP  (procedure  in  SYSREP.PRG) 

I  + - ORDTASUN  (procedure  in  SYSREP.PRG) 

I  l  + - ORDERTUP  (procedure  in  SYSREP.PRG) 

I  + - PRNSETUP.  PRG.  .  . 

I  + - 3YSREND  (procedure  in  SYSREP.PRG) 

+ - UTIL_PRO  (procedure  in  SURE. PRG) 

I  + - REINDX .  PRG 

I  I  HELP. DBF  (database! 

I  I  CSRCLIST. DBF  (database) 

I  I  SRCLIST. DBF  (database) 

I  I  SRCLINQT. DBF  (database) 

I  I  CSRCLINQ. DBF  (database) 

I  I  ECHELONS. DBF  (database) 

I  I  LINLIST . DBF  (database) 
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i  '  AMMORAT  b .  DB  F  (database) 

■  T.ASKORG . D£ F  (database) 

i  I  ORDERTAS.DBF  (database) 

i  I  MEDICAL. DBF  (database) 

!  !  WATER. DBF  (database) 

i  I  CLASS_I.D8F  (database) 

i  I  PROFILES. DBF  (database) 

I  !  CPRGFILE.G5F  (database) 

I  I  ORDERLST.DBF  (database) 

!  I  POLWG7.DBF  (database) 

!  !  DODIC.DEF  (database) 

I  I  POLES? . DBF  (database) 

i  I  AMMOEST.DBF  (database) 

i  I  CL_OTHER.D6F  (database) 

i  I  PROGRAM  (index  file) 

I  I  SUBJECT  (index  file) 

i  I  SRC  (index  file) 

i  i  UNIT_DESIG  (index  file) 

I  I  STRENGTH  (index  file) 

I  I  UNITNAME  (index  file) 

i  I  ECHELON  (index  file) 

i  I  LIN  (index  file) 

[  i  UNIQUELI  (index  file) 

I  I  DODIC  (index  file) 

I  I  POL_TYPE  (index  file) 

!  I  TASKORGNAM  (index  file) 

I  I  UNIQUEUN  (index  file) 

I  I  UNIQUETA  (index  file) 

I  I  NUMBER  (index  file) 

I  I  TASKPKAS  (index  file) 

I  I  PROFILENAM  (index  file) 

I  I  TASKPHASE  (index  file) 

I  I  UNIQUENU  (index  file) 

I  I  PHASE  (index  file) 

!  •  I  UNIQUETN  (index  file) 

I  I  PHASETAS  (index  file) 

I  I  MED_NAME  (index  file) 

I  I  WATER_NAME  (index  file) 

I  I  RATION  (index  file) 

I  I  PROFILE  (index  file) 

I  I  INTENSITY  (index  file) 

I  I  PROFILEDES  (index  file) 

I  !  POSTURE  (index  file) 

I  I  CDE  (index  file) 

I  I  NAME  (index  file) 

I  f  DESCRIPTIO  (index  file) 

I  I  PARENT_UNI  (index  file) 

I  I  UNITDODI  (index  file) 

I  + - STARTHLP.  PRG.  .  . 

i  + - BACKDBF.PRG 

I  I  CSRCLIST.DBF  (database) 

I  I  4FILEVAR.DBF  (database) 

I  I  CSRCLINQ. DBF  (database) 

1  f  TASKORG.DBF  (database) 

I  I  ORDERTAS.DBF  (database) 

I  I  PROFILES. DBF  (database) 

I  I  INTENSTY . DBF  (database) 

I  I  CPROFILE.DBF  (database) 

I  I  ORDERLST.DBF  (database) 

I  + - RESTORE  F.  PRG 

I  I  + - RESTORE  (procedure  in  RESTOREF. PRG ) 

I  I  I  4FILEVAR. DBF  (database) 

i  I  I  4 FILEVAR2 . DBF  (database) 

I  I  + - GETSTATU  (procedure  in  RESTOREF. PRG) 

|  + - PRNSETUP . PRG. . . 

I  + - COMPRESS.  PRG 

I  I  VARIABLE. MEM  (memory  file) 

I  + - UNCOMPRE  .  PRG 

+ - HELP_PRO  (procedure  in  SURE. PRG) 

I  + - HELPNDX.  PRG 

I  I  + SETBROWS.PRG.  .  . 

I  I  + ENDBROWS.  PRG.  .  . 


I 
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I  j  *• - MEMOPAGR f)  ...  (function  in  MEMOPAGR.  PR 

- - PRNTHELP .  PRG 

I  !  + - PHEL_PRO  (procedure  in  PRNTHELP. PRG} 

I  + - PRNONEH  (procedure  in  PRNTHELP. 

I  |  i  + - 8ROWHELP  (procedure  in  PRN 

!  >  I  i  + - SETBRCWS .  PRG .  .  . 

!  I  !  I  + - ENDBROWS .  PRG .  .  . 

!  i  !  + - PRNTMEMO.  PRG 

I  i  + - PRNALLH  (procedure  in  PRNTHELP. 

I  I  I  + - PRNTMEMO.  PRG.  .  . 

I  I  + - ENDPHEL  (procedure  in  PRNTHELP. 

I  + - EDITHELP .  PRG 

I  + - SETBROWS . PRG . . . 

I  + - ENDBR0W3 .  PRG .  .  . 

I  + - MEMOPAGR ()  ...  (function  in  MEMOPAGR. PR 

+ - QUIT_PRO  (procedure  in  SURE.PRGi 

r - -CLCSEALL.  PRG 

:  S7ARTPLA  (procedure  in  PRINTPOL . PRG ; 
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